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Voruort 



Als Fortsetzung zum Hasch inensprachebuch 

Buch speziell fur das Colour-Genie 

Hasch i nenrout in en zur Programmierung der Graf i k , 

Tonausgabe und der Diskettenstat ion. Dadurch uird es 

Hasch i nenprogrammi erer zum ersten Hal mogl ich 

Eigenschaf ten des Co lour -Gen ies in eigenen Programmen 

auszunutzen . 



enthal t di eses 

al le ui cht igen 

der 

dem 

al le 

voll 



Al le Routinen uerden mil jeuei Is ei nem Bei spiel erlautert, 
In jedem Abschni tt f ol gen grofiere Bei spielprogramme 
C insgesamt 10), die im Zusammenhang die s inn vol le Anuendung 
der beschr iebenen ROH-Rout inen zeigen . 



AuBerdem entha It- dieses Buch 
zahlreichen Ut i 1 it ies , die al; 
verkauf t uerden . An d iesen 
Hogl ichkeiten des Eingr i f f es 
Basi cinterpreter genau erlautert. 



die Quel lprogramme von 

RELOSOFT se i t Jahren 

Programmen uerden die 

in Betr i ebssystem und 
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Tei 1 1 : ROM-Rout inen und ihre Anuendung 



^t jft ^p- J^i ^^ ^^ ^^ j^ ^ ^ ^ ^ ^^ ^ ^ ^p- ^ Jf* ^ ^^ ^ ^ ^ ^^ ^ ^ ^ ^f- ^ ^^ ^^ ^ ifh ^ ^p- ^p- ^ ^ ^p ^- ^ ^^ ^ ^ ^p *T ^P ^p ■^T ^^ T 1, T ■^r *T ^P ^H ^P *^ ^n 

* 

* NAME : Beschreibung 
* 

* E : Ei nsprung 
Register bee inf lussung 
Auf ruf parameter 
Ergebn isparameter 



E 
R 
1 




* 
* 
* 
* 

^k l^» ^k ^p #^1 H^ ^ ^ *^ jj>l ^p ^4 ^ ^ H^l J^t J^. jfL jfk ifk i^L nf» ^ ^P ^ ^i ^ j^l ^p I^V ift <Qt H^ ^t j(* ijfr 4ft 4ft ^p ^p- ^p ^ ^ ^ ^p ^p ^p ^P -^- ^p ^p ^* ^r ^P ^T 1 ^P ^P ^P T* 



A 1 le f ol genden Beschreibungen der ROH-Rout inen f angen mi t 
einem der art igen Block an : 



NAME : Der Name der Routi ne , der aus max . 6 Buchstaben und 
Zif f ern besteht . Da hi nter k«rz zusammengef asst eine 
Beschreibung der Funktion. 



E : Die Einsprungadresse (ADRESS) 
Die Rout i ne kann en tueder m i t 



NAh*E 



EQU 
CALL 



ADRESS 
NAME 



Oder 



CALL 



ADRESS 



aufgerufen uerden 



R : Regi sterbeeinf lussung. 

Hier sind alle Register verzeichnet, die durch die Routine 
verandert uerden konnen. Nimmt ein spezielles Register 
immer einen speziel len Uert an , wenn die Routine 
durchlaufen uird, ist dieser angegeben. 



I : Auf ruf parameter 

Hier ist auf gel istet » i n uelchen Reg i stern bzu . 
Speicherzel len , uelche Parameter fur die Routine ubergeben 
uerden milssen . 



: Ergebn isparameter 

In den angegebenen Regi stern und Speicherzel len uerden die 

Ergebn i sse der Routine dem Aufrufer zuriickgegeben * 
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Kapitel 1 : Die Bi ldschirmausgabe 



1.1.1 Die Textmodus 



Im Textmodus konnen auf dem Co lour -Gen ie 1000 Zeichen in 25 
Zei 1 en zu je 40 Zeichen dargestel It- uerden . Die Zeichen 
konnen souoh 1 dem f estprogrammierten Zeichen genera tor 
entnommen uerden „ als auch z . T. frei programmiert uerden . 

Der Bi lduiederhol speicher des Colour-Geni es im Textmodus 
belegt den Speicherbereich von 4400H-47E7H . Die erste Ze i le 
belegt den Bereich von 4400H-4427H, die zuei te den Bereich 
von 4428H-444FH, usu. In einer Zeile ist das ganz links 
dargestellte Zeichen deir niedrigsten Adresse zuzuordnen. 

In jede Speicher ze lie kann ein Uert zuischen und 255 C0 - 
FFH ) geschr ieben uerden . Durch die Videoscha ltung uird auf 
der zugehor igen Bi 1 dposi t ion das entsprechende Zeichen 
dargestel It . Den Uert en - 1 27 entsprechen immer ganz 
bestimmte Zeichen. Den Uerten von 128 - 255 konnen entueder 
f est prog rammierte Graf ikzeichen als auch f reiprogrammierte 
Ze ichen zugeordnet uerden . Diese Zuordnung uird durch den 
CHAR-Bef ehl f estgelegt : 

Code CHAR CHAR 1 CHAR 2 CHAR 3 

8-127 C00H-7FH} f estprogrammierte ASCI I -Zeichen 
128-192 C80H-BFH> frei PR1 frei PR1 fest GR1 fest GR1 
193-255 CC0H-FFH) frei PR2 fest GR2 frei PR2 fest GR2 

I 
Die f rei programmierbaren Zeichen der Gruppe 1 liegen im 
Bereich von F400H-F5FFH , die Gruppe 2 im Bereich von 
F600H-F7FFH . Jedes f reiprogrammi erbare Zei chen belegt 8 
Bytes im Speicher zur Definition des Zeichens . Jedes Byte 
vereinigt die Bildpunkte von einer Zeile. Als erstes ui rd 
die oberste Bi 1 dzei 1 e abgespei chert . 



F400H : 


Code 


80H 


1 . 


Zei le 


F401H : 


Code 


80 H 


2. 


Zei le 


F402H : 


Code 


80 H 


3. 


Zei le 


F403H : 


Code 


80H 


4. 


Zei le 


F404H : 


Code 


80H 


5. 


Zei le 


F405H : 


Code 


80H 


6. 


Zei 1 e 


F406H : 


Code 


80H 


7. 


2ei le 


F407H : 


Code 


88H 


8. 


Zei le 


F408H : 


Code 


81H 


1 . 


Zei le 


F409H : 


Code 


81H 


2. 


Zei le 


F40AH : 


Code 


81H 


3. 


Zei 1 e 


F40BH : 


Code 


81H 


4. 


Zei le 


F40CH : 


Code 


81H 


5. 


Zei le 


F48DH : 


Code 


81H 


6. 


Zei le 


F40EH : 


Code 


81H 


7. 


Zei le 


F40FH : 


Code 


81H 


8. 


Zei le 



F600H : Code C0H 1. Zeile 
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F7FFH 



Code FFH 8. Zeile 



Beispiel : 



F400H : 81 42 24 18 18 24 42 81H 



Jetzt ergibt ? CHR*C128) ein groBes X 



Die Farben 
Farbspeicher 
Zeichen auf 
diesen 1024 
uerdrahtet , 



der einzelnen Zeichen sind durch den 

def ini ert , der bei F000H beg inn t . Fur jedes 

dem Bi ldschi rm ist ein Byte reserv i ert, . Uon 

Bytes sind allerdings nur die unteren 4 Bits 

da nur 16 Farben mbgl ich sind. In den 



Farbspeicher mlissen folgende Uerte eingeschr ieben 
eine best immte Far be zu erzielen : 



uerden um 
I 



Farbe 



Farbcode 

im Farbspeicher 



Argument 
fur COLOUR 



Grau 

Cyan 

Rot 

UeiB 

Gelb 

Grun 

Orange 

Hellgelb 

Blau 

Hel lblau 

Rotviolett 

Blauviolett 

Hel lgrau 

Tiirkis 

tlagenta 

Hel lueiB 



00H 


= 





01H 


= 


1 


02H 


= 


2 


03H 


= 


3 


04H 


= 


4 


05H 


= 


5 


06H 


= 


6 


07H 


= 


7 


08H 


— 


8 


09H 


= 


9 


0AH 


= 


10 


0BH 


= 


11 


0CH 


= 


12 


0DH 


= 


13 


0EH 


= 


14 


0FH 


— 


15 



10 

7 
3 
i 

4 

2 

5 

11 

6 

9 

15 

12 

13 

14 

8 

16 



Die Argumente der COLOUR-Anueisung geben nicht direkt den 
Farbcode fur den Farbspeicher an > sonde rn uerden uber eine 
Tabelle zunachst umcodiert. Diese Tabelle beginnt auf der 
Adresse 4390 H und ist f ol gender maB en auf gebaut : 



4390H 


: 


03H 


; 


COLOUR 


1 


= 


UeiB 


4391H 


t 


05H 


; 


COLOUR 


2 


— 


Grtin 


4392H 


» 


02H 


; 


COLOUR 


3 


= 


Rot 


4393H 


; 


04H 


: 


COLOUR 


4 


= 


Gelb 


4394H 


; 


06H 


* 


COLOUR 


5 


= 


Orange 


4395H 


• 


08H 


I 


COLOUR 


6 


= 


Blau 


4396H 


I 


01H 


; 


COLOUR 


7 


— 


Cyan 


4397H 


; 


0EH 


; 


COLOUR 


8 


= 


Magenta 


4396H 


; 


09H 


; 


COLOUR 


9 


= 


Hellblau 


4399H 


; 


10H 


; 


COLOUR 


10 


s= 


Grau 


439AH 


• 


07H 


t 


COLOUR 


1 1 


= 


Hel lgelb 


439BH 


; 


0BH 


; 


COLOUR 


12 


= 


BI auuiolett 


439CH 


; 


0CH 


; 


COLOUR 


13 


= 


Hel lgrau 


439DH 


; 


0DH 


; 


COLOUR 


14 


= 


Turk is 


439EH 


; 


0AH 


; 


COLOUR 


15 


= 


Rotviol ett 


439FH 


; 


0FH 


* 


COLOUR 


16 


= 


HellueiB 
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Folgendes Programmbeispi el zei gt eine sinnvolle Anuendung 
der f reiprogrammierbaren Zeichen. Es ermog 1 icht die Ei ngabe 
der Umlaute und des scharfen s mittels <CTRL> und A, 0, U, 
a, o, u, S und s. Die CTRL-Taste mu6 losgelassen uerden, 
bevor die Buchsta ben taste ui rd . Bei vielen Colour-Gen ies 
si nd im Zeichengenerator auf den Codes 1-3 und 5-8 die 
deutschen Sonderzeichen enthalten. Das Programm SEDIT 
spr icht unter diesen Codes die Uml aute an (s> 2.1) 



180 

110 

120 

130 

140 

150 

160 

170 

180 

190 

208 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

409 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 



;* 

;* BEISPIEL 

I* 

;* UMLAUTEEINGABE/AUSGABE 

; * 

;* CO 1985 LUIDGER R6CKRATH 

; * 



INIT 



NEUKEY 



LETTER 
CTRL 



! 



;BASIC-ZEIGER: 
KEYVEC EQU 4016H ; KEYBOARD-TREI BER-VEKTOR 

ORG 0BF00H ; STARTEN MIT /TM NICHT MOEGL. 
: INITIALISIERUNG: 



LD HL,CKEYVEC) ; ALTEN KEYBOARDVEKTOR UHSP. 

LD CNEUKEY+1) ,HL 

LD HL, NEUKEY ; NEUEN DEFINIEREN 

LD CKEYVEO,HL l 

JP 1A19H i 



HAUPTPROGRAtlll 
CALL 



AND A 

RET Z 

CP >0' 

JR Z,CTRL 

CP 'A' 

RET C 

CP 'Z'+l 

JR C, LETTER 

CP 60H 

RET C 

CP 'z'+l 

JR C, LETTER 

RET 

* 

LD HL,SL 

XOR CHL) 

LD HL,4018H 

BIT 7, CHL) 

RES 7, CHL) 

RET Z 

CP '&' 

JR NZ,CONVER 



\ 
; ALTE KEYBOARDROUTINE AUFRUFEN 

; KEIN ZEICHEN GEDRUECKT 
; JA, — > 



< 'A' 
JA, — > 
<= '2* 
JA, — > 

< SHIFT § 
JA, — > 

<= KLEIN 'Z* 
JA, — > 



ZEICHEN MIT SHIFT LOCK 

l/ERKNUEPFEN 

CTRL 

CTRL-BIT LOESCHEN 

NEIN, — > 

'0' 

NEIN, UMCONVERTIERUNG 
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60© ; 






610 


LD ft^SL) ; 


SHIFT LOCK INUERTI 


620 


XOR 20H 




630 


LD CSL),A 




640 


XOR A ; 


ZEICHEN LOESCHEN 


650 

ace* 


RET 




boo , 

670 CONVER 


LD HL,CTAB1 ; 


2EIGER AUF URCODES 


680 


LD BC, TABLEN ; 


TABELLELAENGE 


690 


PUSH BC ; 


RETTEN 


700 


CPIR ; 


IN TABELLE SUCHEN 


710 


POP BC ; 


ZURUECK 


720 


RET NZ ; 


NICHT GEFUNDEN — > 


730 


ADD HL,BC ; 


ADRESSE IN ZIELTAB 


740 


DEC HL ; 


ERRECHNEN 


750 


LD A, CHL) 


ZIELZEICHEN LADEN 


760 


RET 




770 ; 






780 


* 

9 




790 CTAB1 


DEFtl 'AOUSaous' 




800 CTAB3 


DEFB 80H 


CODES FUER AE 


810 


DEFB 81 H 


; OE 


820 


DEFB 82H 


; UE 


830 


DEFB 86H 


s ss 


849 


DEFB 83H 


; KLEIN AE 


850 


DEFB 84H 


; KLEIN OE 


860 


DEFB 85H 


; KLEIN UE 


870 


DEFB 86H 


; KLEIN SS 


880 ; 






898 TABLEN 


EQU 8 


; CTAB2-CTAB1 


900 ; 






916 SL 


DEFB 20H 




920 ; 






930 ; DEFINTION DER ZEICHEN 




940 ; 






950 


ORG 0F400H 




960 


DEFB 44H 


; AE 


970 


DEFB 10H 




980 


DEFB 28H 




990 


DEFB 44H 




1000 


DEFB 7CH 




1010 


DEFB 44H 




1020 


DEFB 44H 




1030 


DEFB 00H 




10 40 


DEFB 44H 


; OE 


1050 


DEFB 38H 




I860 


DEFB 44H 




1070 


DEFB 44H 




1080 


DEFB 44H 




1090 


DEFB 44H 




1100 


DEFB 38H 




1 110 


DEFB 00H 




1 120 


DEFB 44H 


; UE 


1130 


DEFB 00H 




1140 


DEFB 44H 




1150 


DEFB 44H 




1160 


DEFB 44H 




1 170 


DEFB 44H 




1 180 


DEFB 38H 




1 190 


DEFB 00H 
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120© 


DEFB 


28H 


1210 


DEFB 


00H 


1220 


DEFB 


38H 


1230 


DEFB 


04H 


1240 


DEFB 


3CH 


1250 


DEFB 


44H 


1260 


DEFB 


3AH 


1270 


DEFB 


00H 


1280 


DEFB 


00H 


1290 


DEFB 


28H 


1300 


DEFB 


00H 


1310 


DEFB 


38H 


1320 


DEFB 


44H 


1330 


DEFB 


44H 


1340 


DEFB 


38H 


1350 


DEFB 


00H 


1360 


DEFB 


00H 


1370 


DEFB 


28H 


1380 


DEFB 


00H 


1390 


DEFB 


44H 


1400 


DEFB 


44H 


1410 


DEFB 


4CH 


1420 


DEFB 


34H 


1430 


DEFB 


00H 


1440 


DEFB 


38H 


1450 


DEFB 


44H 


1460 


DEFB 


44H 


1470 


DEFB 


58H 


1480 


DEFB 


44H 


1490 


DEFB 


44H 


1500 


DEFB 


58H 


1510 


DEFB 


40H 


1520 


END ] 


[NIT 



AE 



OE 



UE 



r* * *^ 



ss 
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1.1.2 Die hochauf losende Graf ik 



Die hochauf losende Graf i k des Co lour -Genie uerf ugt uber 160 
* 102 Punkte. Das Bild uird im Speicherbereich von 4800H 
bis 57EFH abgelegt und ist fol gender ma8 en aufgebaut . Jeder 
Bildpunkt belegt 2 Bits. Diese 2 Bits kbnnen 4 verschiedene 
Uerte annehmen > die die Far ben reprasent ieren : 



Farbe 



b n+1 



b n 



schwarz 








bl au 


e 


1 


rot 


l 





griin 


l 


1 



Die 2 Bits von je 4 Bildpunkten sind zu einem Byte 
zusammengef a8t , und zoar jeuei Is 4 in x-Richtung 
auf ei nanderf olgende Bi 1 d punkte . Der Punkt 1 inks belegt die 
be i den hbchstuertigen Bi ts , der Bi Idpunkt rechts die be i den 
niederuertigen . Die Punkte einer Zei le sind von links nach 
rechts in auf ei nanderf olgenden Speicherzel len abgelegt . 
Jede Bildzeile belegt 40 C^28H) Bytes C160 / 4 = 40). Die 
102 Bi ldzei le sind hi ntereinander im Spe icher abgelegt , 
begi nnend mi t der Zei le mi t der y-Koordi nate : 



0,0 ' 1,0 

+ — + — + — + — 

4800: !b7 !b6 ib5 !b4 
t — + — + — + — 



! 1,1 
+ — +— 



0,1 

+ — +- 

4828: !b7 'bi !b5 !b4 

+ — + — + — + — 

0,2 ! 1,2 

+ — + — + — 4 — 

4850: !b7 !b6 !b5 !b4 
+—♦—+—+--- 



0,99 ! 1,99 
+ — +— + — + — 

5778: !b7 !b6 !b5 !b4 
+ — + — + — + — 



0,100! 1,100 

+ — + — + — 4 — 

57A0:!b7 !b6 !b5 !b4 
4 — + — + „_ + ___ 



0,101' 1,101 

4—4—4—4— 

57C8:!b7 !b6 !b5 !b4 



2,0 ! 3,0 4,0 ! 5,0 

+ 4 4—4 + + 4— 4 — 

b3 'b2 !bl !b0 ! 4801: !b? !b6 !b5 !b4 
— 4—4 — +—4 + — + — + — + — 



2.1 ! 3,1 4,1 ! 5,1 
— + — 4—4—4 + — 4—4—4— 

b3 (b2 !bl !b0 ! 4829: !b7 !b6 !b5 !b4 

4—4 +—4 +— + 4—4— 

2.2 ! 3,2 4,2 i 5,2 

4 4 4 + + 4 4 4 

b3 !b2 !bl 'b0 ! 4851:'b7 ib6 !b5 !b4 

4 4 + + 4 + + 4 



2,99 ! 3,99 4,99 ! 5,99 

4 + + + + + + 4__. 

b3 !b2 !bl !b0 f 5779: !b7 !b6 !b5 !b4 

+ + 4 4 +—4 4—4 — 



2,100' 3,100 4,100! 5,100 

4 + 4 + 4 + + + 

b3 !b2 !bl !b0 ! 57Al:!b7 !bt !b5 !b4 

— + + +— + t +-- -4— +— 



2,101! 3,101 4,101! 5,101 

— +- — 4— -t — + + + 4 — 4_ — 

b3 !b2 !bl !b0 ! 57C9:(b7 !bi !b5 !b4 



6,0 ! 7,0 ! 156,0 !157,0 !158,0 !159,0 

4 4 4 4 4— 4 4 4—4—4 4 4 + 

b3 !b2 !bl !b0 ! ..4827:!b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

4 4 4 4 4 4 4 + 4 4 + 4—4 



6,1 ! 7,1 156,1 ! 157,1 !158,1 '159,1 

4 4 4 4 4 4 4 4 4 + 4 4 — + 

b3 !b2 !bl !b0 ! ,.4B4F:!b7 !b6 !b5 !b4 'b3 'b2 !bl ' bO ! 

—4 + 4—4 4—4—4 4 4 + 4 4—4 



6,2 ! 7,2 ! 156,2 !157,2 !158,2 !159,2 
— 4—4—4—4 4—4—4 — 4—-+ — 4—4—4—4 

b3 'b2 'bl !b0 ! .,4877:!b7 !b6 ib5 !b4 !h3 !b2 !bl !b0 ! 
— - + — +---+ — + + — + — 4—4—4 — 4—4—4 — 4 



6,99 ! 7,99 ! 156,99 ! 157,99 !158,99 !159,99 

4—4—4—4 + — + — 4— 4 4 4— + — - + — ■ + 

b3 !b2 !bl !b0 ! ..579F:!b? !b6 !b5 !b4 !b3 !b2 !bl 'bO ! 

4 4 +-—+ 4—4—4—4 4 4—+ + + 

6,100! 7,100' 156, 100! 157, 1001158,100! 159,100 

4—4 4—4 + „_ 4___+— + — 4— + 4—4—4 

b3 !b2 'bl !b0 ' ,.57C7:'b7 'b6 !b5 l b4 l b3 !b2 !bl 'b0 ' 

4 4 4—4 t— -+ 4—4—4—4 4—4—4 



4—4. 



-4— 4— 4—4—4— 4— 4 



4— 4— 4_. 



6,101! 7,101' 156,101!157,101'158,101!159,101 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 

b3 !b2 !bl !b0 ! ..57EF:'b7 'b6 !b5 !b4 !b3 !b2 'bl !b0 ' 

-4—4 4—4 4 4— 4—4—4 — 4 — -4 4 — + — -4 
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Viele ROM-Rout, i nen konnen zur Erstel lung von Grafiken, 
genutzt uerden , die in ihrer Funktion, den Basicanueisungen 
g leichen Namens entsprechen : 



rfi /fi ^ ^S ^ ^ ^ -T ^ ^ -T ^P T T ^P * ^ ^^ * * ^T ^^ ^N ^T ^H 1 T ^P T ^P * "^ J T" ^^ t T T T ^ T *T * T *T ^P * T T ^P T T ^P T T ^P ^P T * ^P ^P 

* i 

hochauf losende Graf ik einschalten 1 



* 


FGR 




hochau 


* 








* 




e 


38A9H 


* 




R 


AF, BC 


* 




I 


/ 


* 







/ 


* 












Funktion 



- ' J ilVUt, nit >l»* 



Die hochauf losende Graf i k uird eingescha 1 tet , dazu uird das 
Bit 5 von Port FFH gesetzt und der CRTC speziel 1 
initial isiert * 

Be i spi el : 



CALL 



FGR 



^ -^- ^- *^ ^ ■r - ♦ ^ ^p ^ t t T T * * ^P T ^T' ^P ^P ^ T T T T T T *T i * ^P ^P 'T ^^ ^P 1 ^P t ■T t T "T T ^P ^P ■^r T ^P T T ^P T ^P ■^ ^P ^p *^ t ^P ^p 

* * 

* LGR : hochauf losende Graf ik ausschalten , * 

* * 

* 

* 

* 
*********************************************************** 



* 


E 


38B0H 


* 


R 


AF, BC 


* 


I 


/ 


* 





/ 


* 







Funktion: ! 

Die hochauf 1 osende Grafik uird ausgescha 1 tet , dazu uird das 
Bit 5 von Port FFH zuruckgesetzt und der CRTC spezi ell 
initial isiert. 

Bei spi el : 



CALL 



LGR 
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*********************************************************** 
* 

* BGRD : Hintergrund einschalten 

* _ ! 

* 
* 
* 
* 
* * 



E 


38B7H 


R 


AF, B 


I 


/ 





/ 



Funktion : 



Der H i ntergrund Cschuarz 
e l ngescha 1 tet , dazu uird da< 



durch Magenta ersetzt) uird 
Bit 2 von Port FFH gesetzt. 



Be i spiel : 



CALL 



FGR 



* I ' 

P 

* NBGRD : Hintergrund ausschal ten 
* 

* 

* * 
*********************************************************** 



E 


38BBH 


R 


AF, B 


I 


/ 





/ 



[ 



Funktion 



Der H i ntergrund Cschuarz durch 
ausgescha 1 tet , dazu uird das 
zuruckgesetzt . 



tlagenta 

Bit 2 



ersetzt) uird 
von Port FFH 



Beispiel : 



CALL 



NBGRD 



* 

* FCLS : Bi ldschirm mit Farbe fiillen 

* 



384DH 

AF, BC, DE 

A = Farbcode C0 = sch, 1 = bl , 2 - rot, 3 = gr) 

/ I 



* E 

* R 

* I 

* 

* * 

*********************************************************** 



Funktion 



Der gesamte HGR-Bi ldsch irm uird mit der angegebenen Farbe 
gefiillt. Dazu uird der Spei cherbereich von 4800 bis 57FF 
C ! ) mit 00H Cschuarz) , 55H Cblau) , A AH Crot) oder FFH 
CgrUn) gefiillt. 
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Be ispiel 



LD 

CALL 



A,3 

FCLS 



; Bi ldschirm grtin 



* * 

* FCOLOU : Schreibfarbe festlegen * 

-* * 



* 
* 
* 
* 



E 
R 
I 




38DAH * 

AF * 

A = Farbcode (0 = sch , 1 = bl , 2 ~ rot, 3 = gr)* 
/ * 

* 



*********************************************************** 



i * * I'J V *»***■ *£ 



Funktion: 

Hit diesem Unterprogramm uird die Schreibfarbe fur al le 
f olgenden Operationen in der Graf ik f estgelegt . Nach 
uberpriif ung auf Bereichsuberschrei tung , die einen FC-Fehler 
hevorruf t , uird die Schreibfarbe in C4313H) abgelegt . 



Be ispiel 



LD 
CALL 



A,l 
FCOLOU 



; Farbcode fur bl au 

; Schreibfarbe festlegen 



*********************************************************** 



* CIRCLE 

* 



* 
* 
* 
* 
* 
* 
* 



E 
R 
I 



Kre i s ze i chnen 

3B69H 

AF, BC> DE 

B = x-Koordinate des H i ttelpunktes 

D = y-Koord i nate des II i ttelpunktes 

A = Radius 

/ 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



*********************************************************** 

Funktion : 

entspricht Basic: CIRCLE B»D,A. 



Bei spiel : 




LD 


B,80 


LD 


D,50 


LD 


A ,30 


CALL 


CIRCLE 



X = 80 
Y - 50 
R = 30 
CIRCLE 80,50,30 
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* 

: Fl ache mi t Far be f ul len 



* PAINT 

* E 

* R 

* I 

* 
* 

^. jfi ^ j^. j^i ^^ ^ j^L ^. j^. ^ ^^ ^ ^ ^ Jfi ^ ^t ^ «^. i^L jfn if. i^, j^ nift ^^ ^ ^ JQt ^ ^p .^. ^C ^^ ^ ^f. ^^ ^p ^r ^ ^ ^p- ^p ^n- -^p ^p ^^ ^ ^^ ^p t* T ■^r T * ^P ^r T 

Funktion: 

entspricht BASIC: PAINT E,D, C4319H>+ 1 , <431 AH)+ 1 , <431BH>+ 1 
Es konnen keine, ei ne oder zuei Begrenzungsf arben angegeben 
uerden . <431DH) muB dann die Uerte 1, 2 oder 3 enthalten. 



3E78H 

AF, BC, DE 

E = x-Koordinate 

D - y-Koordinate 

C431DH) = Anzahl der Begrenzungsf arben + 1 

C4319H) = Fiillfarbe 

(431 AH) = Begrenzungsf a r be 1 

C431BH) = Begrenzungsf arbe 2 



sispiel : 




LD 


E,80 


LD 


D,50 


LD 


A, 2 


LD 


C431DH) ,A 


LD 


A,l 


LD 


C4319H) , A 


LD 


A, 2 


LD 


(431AH) , A 


CALL 


PAINT 



; x-Koordinate 

; y-Koordinate 

; 1 Begrenzungsf arbe 

; FLil If arbe = bl au 

; Begrenzungsf arbe = rot 

; PAINT D,E,2,3 



* DETOHL 
* 



E 
R 
I 



Line von CD,E> nach CH,L) Ziehen 



DE 



HL 



^n t ■^p t T T ^r T T ^p ^p ^ ^r ^p ^^ ^p * "T T ■^r ^r ^ T ^r T ■^r ■T 1 ^p *^ t* ■^t ^p T *^ *p *r ■^n ^p T ^p ^p ^F t T ^F ^F T ^p ^F ^F ^* ^F t ^F ^ ^F ^F ^F * 

* * 

* 
* 
* 

* 
* 
* 
* 



* 
* 

* 
* 

* 
* 



3C1FH 

AF, BC, DE, HL, BC ' , 

x-Koordinate 1 

y-Koordinate 1 

x-Koordinate 2 

y-Koordinate 2 



D - 

E = 

H = 

L - 
/ 



»* .. r> «*i 



I *t* r*, » h* •*■ +J& *i 



Funktion: 

Von dem Punkt mit den Koordinaten CD,E) uird eine Linie zu 
dem Punkt mit den Koordinaten CH,L> gezogen . Die Farbe muB 
zuvor mit FCOLOU definiert uerden. 



Be i spiel : 




LD 


D>1 


LD 


E,l 


LD 


H, 158 



xl - 1 
yl = 1 
x2 = 158 
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LD 

CALL 



L, 100 
DETOHL 



; y2 = 100 

; Linie (D,E) nach CH»L) 



* PLOTHL : Punkt setzen 
* 

* E 

* R 

* I 

* 
* 
********************************************************** 



3B8AH 

AF, BC, DE, HL 

L = x-Koord i nate 

H - y-Koordinate 

/ 



Funktion 



* f| ,v? fc* T 



*l * - ^ i 



rt„^+*r ( 'y. » 4 » ff f ( * *~| 



Der Punkt mit den Koordinaten (D,E) uird mit der Far be, die 
zuvor durch FCOLOU def iniert uurde > gesetzt . Durch 
Ei n sprung bei PLOTHL + 3 kann der Farbcode in A ubergeben 
uerden . 

Bei spiel : 



LD 


L,80 


LD 


H,50 


CALL 


PLOTHL 



x - 80 
y = 50 
Punkt <L,H) setzen 



^P ^ ^* ^ ^S ^" ^^ ♦ ^" ^p ^^ ♦ ♦ ♦ ^K ♦ ^ ^- ♦ ^ -^T -^S ^- »^ ^ ^ ^ ♦ ^ -T ♦ ^» ^" ^P- ^S- ^ -^^ ^K ^ ^" ^* ^ ^ ^K ^ ^r H"fL ^k H^l j^i ^ H^» ^ j^» hX» ^ ^ ^» ^ 

* * 

* 

* 

* 
* 

* 



Punkt abf ragen 

3F3AH 

AF, BC, DE, HL 

L = x— Koordinate 
H = y-Koord i nate 
A - Farbcode des Punktes 



* CPOINT 

* E 

* R 

* I 

* 

^p T ^^ ^P ^T ^P ^P T ^ ^P ^P T T "T" ^ ^p T ■T ^P ^p T *T" T T* ^p T ^p ^P ^^ ^p t ^p ^p ^p ^r T 1 ^P ^p ■^P 1 ^p t T ^n 'Q* ^p" T T ^P T ^P ^P ^p T ^p ^P T ^P T T 






Funktion 



Die Far be des Punktes mit den Koordinaten CL ,H) 
abgef ragt und im Akku zurlickgegeben . 



uird 



i spiel : 




LD 


L,80 


LD 


H,5S 


CALL 


CPOINT 


CP 


1 


JR 


Z,BLAU 



x = 80 

y = 50 

Punkt abfragen 

Farbe blau ? 

ja, — > 
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Die erst en beiden Beispiele zeigen uie Bilder in der 
hochauf losenden Grafik von Maschi nenprogrammen aufbebaut 
uerden konnen . Beispiel 1 malt konzentr ische Kreise mit 
uechselnden Far ben und dernonstr iert i nsbesondere die 
Anuendung der Unter programme CIRCLE und PAINT. 



100 

110 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
22© 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 



* * 

* BEISPIEL * 

* * 

* KONZENTRISCHE KREIS IN FGR * 

* * 

* CO 1985 LUIDGER R5CKRATH * 

* * 

^P T ^P ^K ^P ^P 1 ^H ^P ^P T T T ^p ^p ^n T ^P T ^P ^T T "T" ^P ^p T ^P T T T T T ^P ^r ^P ^p ^^ * ^* ^p * ^r - * J ^ * * 



FCOLOU 

FCLS 

FGR 

LGR 

BGRD 

NBGRD 

CIRCLE 

PAINT 

ANZPNT 
FUELLF 
BEGRF1 
BEGRF2 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 



38DAH 
384DH 
38A9H 
38B0H 
38B7H 
38BBH 
3B09H 
3E78H 

431DH 
4319H 
431AH 
431BH 



SCHREIBFARBE UAEHLEN 
BILDSCHIRH LOESCHEN 
FGR ANUAEHLEN 
LGR ANUAEHLEN 
BACKGROUND EIN 
BACKGROUND AUS 
KREIS ZEICHNEN 
FLAECHE AUSFUELLEN 

ANZAHL DER ARG . FUER PAINT 
FUELLFARBE 
BEGRENZUNGSFARBE 
BEGRENZUNGSFARBE 



V*' 



PROGRAHMSTART 



START 



LOOP 



LI 



ORG 


7000H 






CALL 


FGR 


j 


GRAFIK EIN 


LD 


A,0 


f 


FCLS 


CALL 


FCLS 






LD 


A,l 


t 


FCOLOUR 1 


CALL 


FCOLOU 






LD 


C,8 


t 


RADIUS 


LD 


A,C , 


* 


FCOLOUR RADIUS / 8 


RRCA 








RRCA 








RRCA 








AND 


3 






JR 


NZ,L1 


* 


KEIN SCHUARZ, — > 


INC 


A 


f 


SCHUARZ — > BLAU 


CALL 


FCOLOU 






LD 


B,80 


V 


X = 80 


LD 


D,51 


t 


Y - 51 


LD 


A,C 


i 


RADIUS -> A 


PUSH 


BC 


» 


RADIUS RETTEN 


AND 


A 






CALL 


CIRCLE 


i 


CIRCLE 80,51 ,B 


POP 


BC 






LD 


D,51 


* 


Y=51 


LD 


A,C 


j 


X=80+RADIUS-4 


ADD 


A, 80-4 






LD 


E, A 






LD 


A, 3 


* 


ANZAHL DER ARG FUE 


LD 


canzpnt: 


> , 


A 



h, t 'iiiU. *»* 
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640 


LD 


A,C 


650 


RRCA 




660 


RRCA 




670 


RRCA 




680 


AND 


3 


690 


LD 


CFUELLF) 


700 


LD 


CBEGRF1) 


710 


DEC 


A 


720 


AMD 


3 


730 


JR 


NZ,L2 


740 


INC 


A 


750 L2 


LD 


CBEGRF2) 


760 


PUSH 


BC 


770 


CALL 


PAINT 


780 


POP 


BC 


790 


LD 


A,C 


800 


ADD 


A,8 


810 


LD 


C,A 


820 


CP 


64 


830 


JR 


NZ,LOOP 


840 


CALL 


49H 


850 


RET 




860 


END 


START 



FARBE = RADIUS / 8 



, A ; FUELLFARBE 

,A ; BEGRENZUNGSFARBE 1 

; LETZTE KREISFARBE 

; KEIN SCHUARZ — > 
; SCHUARZ — > BLAU 
,A ; BEGRENZUNGSFARBE 2 

; PAINT E > D,C,C,C-1 

; RADIUS = RADIUS + 8 



RADIUS = 64 

NEIN — > 

UARTE TASTENDRUCK 



t i • 
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**${* ni -***r f*^ ^ ^jt * i^.*-*m^^* 
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it*..** 



Be isp i e 1 2 f Ul 1 1 den Bildschi rm mit ineinander 
verschachtelten Rechtecken . Die UnregelmaB i gkei ten dabei 
ergeben sich aus dem Uachsen des Parameters B Liber 51. 
Durch Drlicken der RETURN-Taste nach Fert igstel 1 ung des 
ersten Bildes Cuird erst nach einiger Ze i t akzeptiert) > 
gird der Background abgescha 1 tet . Nach nochmaligern Driicken 
der RETURN-Taste uerden die Farben uerandert. Durch ein 
ueiteres Driicken der RETURN-Taste kann danach uieder der 
Background eingeschaltet uerden. SchlieSlich kann durch 
Drlicken der RETURN-Taste das Programm beendet uerden . Das 
Beispiel zeigt i nsbesonder e die Anuendung der 
Unterprogramme DETOHL , PLOTHL und CPOINT. Dabei ist 
besonders zu beach ten , da8 DETOHL die X-Endkoord inate in H 
und die Y-Endkoord i nate in L eruartet , uahrend PLOTHL und 
CPOINT die X-Koord inate in L und die Y-Koord inate in H 
eruarten. ..■■ .^ . ». 



*r*~> -*:-,~> *•' v*~ i^.*-4rf^f »-. 



l,/^ l»lr tf. 



100 

1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 

300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
44© 
450 
460 
470 
430 
490 

500 

510 
520 



* * 

* BEISPIEL * 

* * 

* RECHTECKE IN FGR AUSGEBEN * 

* * 

* CO 1985 LUIDGER RoCKRATH * 

* * 



FCOLOU 

FCLS 

FGR 

LGR 

BGRD 

NBGRD 

DETOHL 

PLOTHL 

CPOINT 



EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



38DAH 
384DH 
38A9H 
38B0H 
38B7H 
38BBH 
3C1FH 
3B8AH 
3F3AH 



LINIE VON (D,H) NACH CH 
PUNKT AUF <L,H> SETZEN 
PUNKT CL,H) ABFRAGEN 



L) 



PROGRAMHSTART 



START 



LOOP 



ORG 


7000H 






CALL 


FGR 


> 


GRAFIK EIN 


LD 


A,0 


» 


FCLS 


CALL 


FCLS 






CALL 


BGRD 


J 


BGRD 


LD 


B, t 


1 


ZAEHLER 


LD 


A,B 






AND 








CALL 


FCOLOU 


» 


FCOLOUR B 


LD 


D,B 


l 


X1=B 


LD 


E,B 


I 


Y1=B 


LD 


A, 159 


t 


X2=159-B 


SUB 


B 






LD 


H,A 






LD 


L,B 


f 


Y2=B 


PUSH 


BC 






PUSH 


HL 


t 


ENDKOOR. 


CALL 


DETOHL 


t 


CD,E> — > CH,L) 


POP 


DE 


t 


JET2T ANFKOOR. 


POP 


BC 






LD 


A, 101 


> 


Y2-101-B 
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530 


SUB 


B 




540 


LD 


L,A 




550 


LD 


H,D ; 


X2=X1 


560 


PUSH 


BC 




570 


PUSH 


HL ; 


ENDKOOR. 


580 


CALL 


DETOHL ; 


CD,E> — > <H»L) 


590 


POP 


DE ; 


JETZT ANFKOOR. 


600 


POP 


BC 




610 


LD 


L> y t , 


Y2=Y1 


620 


LD 


H,B ; 


X2=B 


630 


PUSH 


BC 




640 


PUSH 


HL ; 


ENDKOOR. 


650 


CALL 


DETOHL ; 


CD, ED — > <H,L) 


660 


POP 


DE ; 


JETZT ANFKOOR. 


670 


POP 


BC 




680 


LD 


L,B ; 


Y2=B 


690 


LD 


H,B ; 


X2=B 


700 


PUSH 


BC 




710 


CALL 


DETOHL 


CD»E) — > <H,L> 


720 


POP 


BC 




730 


INC 


B 


GROESSE - 1 


740 


JR 


NZ,LOOP 


; GROESSE > — > 


750 


CALL 


49H 


; UARTE TASTENDRUCK 


760 


CALL 


NBGRD 


; BACKGROUND AUS 


770 


CALL 


49H 


; UARTE TASTENDRUCK 


780 


t 






790 


; FARBEN R0TIERE1 


^: 


800 


; SCHUARZ — > BLi 


&U — > ROT — > GRUEN 


810 


* 
* 






820 


LD 


HL,0 


; H = Y> L - X, X=0, 


830 L00P2 


PUSH 


HL 




840 


CALL 


CPOINT 


; FARBE BEST. 


850 


POP 


HL 




860 


INC 


A 


; FARBE + 1 


870 


AND 


3 




880 


CALL 


FCOLOU 


; NEUE FARBE SETZEN 


890 


PUSH 


HL 




900 


CALL 


PLOTHL 


; PUNKT IN NEUER FAR 


910 


POP 


HL 




920 


INC 


L 


; X + 1 


930 


LD 


A,L 


; X = 160 -*'-'—■*'--■"- 


940 


CP 


160 




950 


JR 


NZ,L00P2 


; NEIN, — > 


960 


LD 


L,0 


; X = 


970 


INC 


H 


; Y + 1 


980 


LD 


A,H 


; Y = 102 


990 


CP 


102 




1000 


JR 


NZ,LOOP 


2 ; NEIN, — > 


1010 


CALL 


49H 


; UARTE TASTENDRUCK 


1020 


CALL 


BGRD 


; BACKGROUNG EIN 


1030 


CALL 


49H 


; UARTE TASTENDRUCK 


1040 


RET 






1050 


END 


START 





SETZEN 



« /i+ ir *\ v-.*e 
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**^^^^^^ 

^3^^**^^^ 





i 



i'\ '-<•*% •^MS-Jrt.'tf.- UK 



*. >i t ufi* ^••a.ff \j, , t rf 
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Das letzte Bei spiel ermogl icht, den Ausdruck des 
Grafikbi ldsch irm auf einem Drucker . Die Far ben uerden in 
Graustufen umgesetzt . Die Steuer codes f Ur den Drucker si nd 
fur alle EPSON- und STAR-Drucker geeignet. Bei anderen 
Druckern miissen nur folgende Steuercodes geandert uerden: 

lBH,41H,n = Vorschub auf n-Punkte einstellen 
1BH,4CH,C0H,03H = 960 Bytes in Grafik folgen 



100 
110 

126 
130 
140 
150 
160 
170 
180 
190 
260 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 



* 

* BEISPIEL 
* 

* FGR AUSGABE AUF DRUCKER 

* <C> 1985 LUIDGER RoCKRATH 

* 



PRCHAR 

BREITE 

BYPDOT 

MASKE 

HGRRAM 

ESC 

CR 

START 



2EILE 



BYTE 



DOT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

LD 

LD 

CALL 

LD 

CALL 

LD 

CALL. 

LD 

CALL 

LD 

INC 

LD 

RLCA 

RLCA 

PUSH 

AND 

ADD 

PUSH 

ADD 

POP 

ADD 

PUSH 

LD 

LD 

LD 

ADD 



050EH 

40 

4 

0F0H 

4800H 

27 

13 



A, ESC 

PRINT 

A, 'A' 

PRINT 

A, BYPDOT 

PRINT 

HL, HGRRAM 

B, BREITE 

A, ESC ; 

PRINT ; 

A, 'L' 

PRINT 

A,0C0H 

PRINT ,«,- 

A,3 

PRINT 

A,CHL> ; 

HL 

C,4 



AF 

3 

A, A 

AF 

A, A ; 

DE 

A,D ; 

HL 

HL, MUSTER 

E,A 

D,0 

HL,DE ; 



ZEICHEN A AUF DRUCKER 

40 ZEICHEN PRO 2EILE 

BYTE AUF DRUCKER PRO DOT 

I1ASKE 

SPEICHER FUER FGR 

ESC = 27 



ESC, A, BYPDOT AUF DRUCKER 
DEFINIERT 2EILENV0RSCHUB 
IN PUNKTEN 



■VjJJC Sk t>wv~'iwh<- . 



40 ZEICHEN / 2EILE 
ESC,L,C0H,3 
ES FOLGEN 960 GRAPHIC-BYTES 



+H\ V-" * 1r -'H (f / 
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1 BYTE AUS FGR 

4 DOTS PRO BYTE 
NAECHSTEN PUNKT 
NACH BIT UND 1 
BYTE RETTEN 
1 DOT HERAUSBLENDEN 

* 2 

* 4 

A - FARBCODE * 6 



HL ZEIGT AUF MUSTER 
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610 


PUSH 


BC 


620 


LD 


B,6 ; 


630 OUT 


LD 


A,<HL> ; 


640 


AND 


I1ASKE ; 


650 


CALL 


PRINT ; 


666 


INC 


HL 


670 


DJNZ 


OUT 


680 


POP 


BC ; 


690 


POP 


HL ; 


700 


POP 


AF ; 


710 


DEC 


C ; 


720 


JR 


NZ , DOT ; 


730 


DJNZ 


BYTE ; 


740 


LD 


A>CR ; 


750 


CALL 


PRINT ; 


760 


LD 


DE,57F0H 


770 


RST 


18H 


780 


JR 


NZ>ZEILE 


790 


RET 




800 


; DRUCKT ZEICHEN 


810 PRINT 


PUSH 


BC 


820 


LD 


C,A 


830 


CALL 


PRCHAR 


840 


POP 


BC 


850 


RET 




860 






870 


; MUSTER ZUR UMSE 


880 






890 MUSTER 


DEFB 


; 


900 


DEFB 





910 


DEFB 





920 


DEFB 





930 


DEFB 





940 


DEFB 





950 


DEFB 


24H " ; 


960 


DEFB 


48H ; 


970 


DEFB 


90H ; 


980 


DEFB 


24H ; 


990 


DEFB 


48H 


1000 


DEFB 


90H 


1010 


DEFB 


6CH 


1020 


DEFB 


0B4H 


1030 


DEFB 


0D8H 


1040 


DEFB 


6CH 


1050 


DEFB 


0B4H 


1060 


DEFB 


0D8H 


1070 


DEFB 


0FCH 


1080 


DEFB 


0FCH 


1090 


DEFB 


0FCH 


1100 


DEFB 


0FCH 


1 1 10 


DEFB 


0FCH 


1120 


DEFB 


0FCH 


1 130 


END 


START 



6 BYTES DES MUSTERS 
HUSTERBYTE LADEN 
MIT MASKE UNDIEREN 
AUSGEBEN 



ZAEHLER ZURUECK 
ZEIGER AUF FGR-RAtl ZURuCK 
BYTE ZURUECK 

4 PUNKTE / BYTE BEARBEITET 
NEIN, — > 

ZEILE FERTIG, NEIN — > 
VORSCHUB BYPDOT 
PUNKTE 
ENDE FGR-RAM PRINT 



Hr** ^-f ±± ' 
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; NEIN — > UEITER 



IN A 



SCHUARZ 



BLAU 



ROT 



GRUEN 



X X 
X X 
X X 

X X 
X X 
X X 

XX XX 
X XX X 
XX XX 

XX XX 
X XX X 
XX XX 

xxxxxx 
xxxxxx 
xxxxxx 
xxxxxx 
xxxxxx 
xxxxxx 
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1.1.3 Der Video-Controller CCRTC) 



Die Umuandlung des Inhaltes des Bi ldui ederholspeichers in 
ei n U ideosignal uird beim Co lour -Genie von einem 
hochintegr ierten Uideocontroller CCRTC) Ubernommen. Dieser 
Chip hat 16 Register mit denen er programmiert uerden kann. 
Ober den Systembus ist er mit 2 Adressen anzusprechen : 0FAH 
(= 259) und 0FBH C= 251). In die Adresse 250 muB zunachst 
die Reg isternummer geschr ieben uerden , bevor mit ei nem 
OUT-Bef ehl auf die Adresse 251 das entsprechende Register 
belegt uerden kann . 

Die 16 Register des CRTC haben folgende Funktion: 

Reg Funktion Adr . Tab Inituert 

LGR FGR LGR FGR 

Horizontale Abtastgeschui nd igkei t 42FF 430F 70 70 

1 Zeichen pro Zeile 42FE 430E 40 40 

2 Horizontale Synchronisationsposi tion 42FD 430D 52 52 

3 Lange der Zei lensynchron isation 42FC 430C 150 150 

4 Vertikale Gesamtzahl der Zeilen 42FB 430B 38 126 

5 Vertikale Justierung CBi ldf ang) 42FA 430A 31 

6 Zeilenzahl Cdargestel 1 te Zeilen) 42F9 4309 25 102 

7 Vertikale Synchronisationsposit ion 42F8 4308 31 116 

8 Interlace und Skew 42F7 4387 160 32 

9 Zeichen-End-Raster 42F6 4306 7 1 

10 Cursor Blinken, Cursor Start Raster 42F5 4305 196 32 
Bit 0-3 : Cursor start raster 

Bit 5-6 : = 00 Cursor blinkt nicht 
= 01 Cursor aus 
= 10 Cursor bl i nkt schnel 1 
= 11 Cursor bl inkt langsam 

11 Cursor End Raster 42F4 4304 7 

12 Bi 1 du i ederho 1 spei cheradresse C11SB) 42F3 4303 4 8 

13 " CLSB) 42F2 4302 

14 Cursoradresse 42F1 4301 

15 " 42F0 4300 1 



Bemerkungen : 

zu : Hor i zonta 1 e Abtastgeschu i nd i gke i t 

Erhohen des Uertes macht das Bild schma 1 er , Ern iedr igen 

brei ter . Snderungen sind aber nur in ei nem sehr schma 1 em 

Bereich moglich, da sonst die Synchronisation verloren 
geht . 

zu : Horizontale Synchronisat ionsposi ti on 

Durch Verandern dieses Uertes kann das Bild auf dem 
Bi ldschirm horizontal veschoben uerden . GroBerer Uert 
beuirkt Linksversch ieben. 

zu: Vertikale Synchroni sat ionsposi ti on 

siehe oben. GroBerer Uert beuirkt Hochschieben des Bildes. 
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zu : Zeichenend raster 

alleinige Hnderung fuhrt sofort zu Desynchronisat ion 

zu : Cursor Bl in ken und Cursor star tr aster / -end raster 

Die Uerte fur diese be i den Reg ister nicht hier , sondern in 
die Speicherzel len 4019H (Endraster) und 401 AH (Start raster 
und Bl inken > eintragen . Die RAM-Tabel le uird nur bei der 
Initial isierung benutzt . Die Videoausgabe Ober OUTCH setzt 
bei jedem Auf ruf durch die Routine CURSET Cs . u . > beide 
Register auf die in diesen Speicherzel len befindlichen 
Uerte . 

Hier mu0 die Adresse - 4000H abglegt uerden. 

zu : Cursoradresse 

Die Cursoradresse mufl absolut C a lso n icht abzugl ich 4000H , 
s. o . ) hier abgelegt uerden . ftndern der Uerte in der 
RAM-Tabel le ist auch hier sinnlos, da die OUTCH-Routine 
hier bei jedem Auf ruf die Cursorposi tion (4020H) eintragt . 

Fur die Uerte a I ler 16 Reg i ster i st f My beide Graf ikmodi im 
RAM eine Tabel le en thai ten , die die Uerte a 1 ler dings in 
umgekehrter Reihenf olge en thai t . Diese bei den Tabel len 
uerden be i m Systems tart aus dem ROM gel aden CROtl-Tabel le 
LGR: 3800H> FGR : 3810H) und durch die Anueisungen LGR und 
FGR uerden die CRTC-Reg ister belegt und auBerdem ui rd e in 
Bit von Port 0FFH umgesetzt . I m ROM sind ubr igens noch je 
eine Tabelle fur die NTSC-Norm uorhanden CLGR: 3823H , FGR: 
3833H) . 

AuSer durch die Anuei sungen LGR und FGR uerden die 
CRTC-Register auch bei jedem Uiederei ntr i tt in die 
Hauptschl ei f e mi t den LGR-Uerten neu belegt . Da her konnen 
durch POKEs in die RAM-Tabel le im Direktmode ftnderungen 
vorgenommen uerden , die beim Erscheinen des 'Ready' uirksam 
uerden . Knderungen der Cursor parameter und -posi tion sind 
hierdurch aber nicht mog hch Cs. o.). 

Uill man die RAM-Tabel le per Bas i cprogramm andern , mu6 man 
zur Neu in i t ia 1 isierung des CRTC den gerade geuahl ten 
Grafikmode noch einmal aktivieren. 

Von Masch inenprogrammen aus konnen mit f olgenden 
Anuei sungen die CRTC-Reg ister belegt uerden : 

; Reg i ster 1 anuSh 1 en 

; 2eichen / Sei le = 42 



LD 


A,l 


OUT 


C0FAH) ,A 


LD 


A ,42 


OUT 


C0FBH) ,A 
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AuBerdem konnen folgende Unterprogramme benutzt uerden: 



2 Register des CRTC setzen 

3047H 

AF 

A = Regi stern ummer 

HL = Uert CH fur Reg A, L fur Reg A+l 

/ 



* CRTC2S 

* 

* E 

* R 

* I 
* 

* 
* 



Funktion : 

Zuei Register des CRTC uerden neu belegt. Reg A erhalt den 
Uert von H, Reg A-l den von L . 

Beispi el : 



LD HL,C4020H) 
LD A, 14 
CALL CRTC2S 



Cursoradresse 1 aden 
Reg 1 4 (Cursoradresse) 
Cursoradresse CRTC setzen 



* 

* CURSET : Cursor setzen 
* 

* E 

* R 

* I 

* 

* * 



305FH 

AF 

HL = Cursoradresse 

/ 



Funktion : 

Reg 10 des CRTC uird den Cursorparametern aus (4019H) und 
C401AH) geladen und Reg 14 mit der Cursoradresse. AuBerdem 
uird auf der Cursor position im Farbspe icher die 
augenbl ickl iche Schreibf arbe (4023H) eingesetzt. 

Beispi el : 



LD 
CALL 



HL,4458H 
CURSET 



Cursor auf 4450H 
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*********************************************************** 
* 

* CURRES : Cursor 1 oschen 
* 

* E : 3959H 

* R : AF 

* I : HL = Cursoradresse 

* : / 
* 
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Funktion: 

Reg 10 des CRTC uird mit 20H, Reg 11 mit 7 und Reg 14 mit 
der Cursoradresse gel aden . Ansonsten siehe oben . 
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Be i spiel : 



LD 

CALL 



HL,4450H 
CURRES 



; Cursor auf 4450H 
; 1 oschen 
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flit folgendem Bei spiel programm uird das Bi ldsch irmformat im 
Textmodus auf 30 Zeilen a 50 Zeichen erueitert. Dazu muB 
d&r CRTC umprogrammiert uerden . AuBer den Zeichen pro Zei le 
und der Anzahl der dargestel 1 ten Zeilen muB die Position 
der hor izontalen und vert ikalen Synchroni sat ion geandert 
uerden, urn das Bild nach links oben zu verschieben. Diese 
Programm ierung erf olgt bei d&r Initial isierung. 
Uurde man nur den CRTC der art ig umprogrammi eren, uiirde das 
Bild zieml i ch konf us aussehen , denn der Videotrei ber des 
Basici nterpreters muB das Bildformat kennen , urn den 
Bi 1 dui ederholspeicher r icht ig zu f U 1 len . Also mu6 ei n 
vol 1 ig neuer Videotrei ber geschr ieben uerden , in dem al le 
Parameter > die aus dem Bi ldf or mat hergelei tet sind , 
geandert sind . Folgendes Beispielprogramm en thai t ei nen 
sol chen Uideotreiber . Dazu uurde mi t dem NEUDOS 
Disassembler CDISASSEH) mit der STD-Option aus dem Treiber 
im ROIl C3039H - 3222H , souie 35F8H - 3652H) ein 
Quel Iprogramm erzeugt, das dann an alien erf order 1 ichen 
Stellen geSndert uurde. SchlieBlich uurden die 
uberf 1 Qssigen Programmtei le uieder entfernt und stattdessen 
SprUnge und Aufrufe ans ROM eingesetzt . So uurde der 
nachfolgend aufgelistete Videotreiber erstellt. Aus dieser 
Endstehungsueise erkl aren sich die merkutirdi gen Labels 
< AAA , AAB, ...) und das fast gSnzl iche Fehlen von 
Kommentaren. Lediglich einige struktur ierende Uberschr i f ten 
uurden eingef ugt . Uer an t ief ergehenden Kommentaren 
interessiert ist, kann im RON -Li sting den 
Or iginal videotreiber durcharbei ten . 



100 

110 

120 
138 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 

330 
340 
350 
360 
370 
380 
390 
400 



* 

* BEISPIEL 
* 

* Bildschirm auf 30 Zeilen a 50 Zeichen 
* 

* CC) 1985 LUIDGER R6CKRATH 
* 



DISVEC 
RST18U 
VIDRAH 
CURSET 
CURRES 
COLSET 
CLS 

CPL 

LINES 

GESAMT 

FCERR 
CURSOR 
LAST 
FARBE 

INIT 



ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 

LD 
LD 
LD 



- t* ■ -. L W K^jtf*Sf -jito* ■ 
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0BC00H 

401EH 

4007H 

4400H 

305FH 

3059H 

307AH 

01C9H 



50 ; ZEICHEN PRO ZEILE 

30 ; ZEILENANZAHL 

1500 ; = LINES*CPL = GESAMTZAHL DER 

; ZEICHEN AUF DEM BILDSCHIRI1 
1E4AH 
4020H 

VIDRAH + GESA11T 
0F000H 



A, CPL 

C 17150) ,A 

A, LINES 



; CPL IN CRT-TABELLE 
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419 




LD 


C17145>,A 


420 




LD 


A ,33 


430 




LD 


(17144) ,A 


440 




LD 


A ,56 


450 




LD 


C17149) ,A 


460 




f 




470 




LD 


HL, VIDEO 


480 




LD 


CDISVEO ,HL 


490 




r 




500 




LD 


HL,(RST18V> 


510 




LD 


CRST18C+U >HL 


520 




LD 


HL,RST18N 


530 




LD 


CRST18U>>HL 


540 




CALL 


CLS 


550 




JP 


1A19H 


560 




> 


• '. . r L *• 


570 


ABB 


INC 


HL 


580 




PUSH 


HL 


590 




CALL 


ABT 


600 




EX 


DE,HL 


610 




POP 


HL 


620 




RST 


18H 


630 




RET 


NZ 


640 




LD 


DE,-CPL 


650 




ADD 


HL,DE 


660 




RET 




670 


ABI 


PUSH 


HL 


680 




PUSH 


DE 


690 




PUSH 


BC 


700 




LD 


HL,<CURSOR> 


710 




PUSH 


HL 


720 




CALL 


ABT 


730 




JP 


30A7H 


740 




» 




750 


VIDEO 


LD 


L, CIX+03H> "" 


760 




LD 


H, CIX+04H) 


770 




JP 


C317DH 


780 




LD 


A, CIX + 05H) 


790 




OR 


A 


800 




JR 


N2,ABN 


810 




CALL 


CURRES 


820 




JR 


ABO 


830 


ABN 


CALL 


CURSET 


840 


ABO 


LD 


A,C 


850 




CP 


i r 


860 




JR 


CABS 


870 




CALL 


ABV 


880 


ABP 


JP 


3108H 


890 








900 




; STEUERZEICHEN ERKEN 


910 








920 


AB5 


LD 


DE,ABP 


930 




PUSH 


DE 


940 




CP 


8 


950 




JP 


2>31DFH 


960 




CP 


0AH 


970 




RET 


C 


980 




CP 


0EH 


990 




JP 


CACF 


1000 


JP 


Z,31F8H 



; LINES IN CRT-TABELLE 

; HORIZONTALE JUSTIERUNG 

; VERTIKALE JUSTIERUNG 
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1613 

1020 
1030 
1040 
1050 
1060 
1070 

1080 
1090 

1 100 
1 1 10 
1 120 
1 130 
1 140 
1150 
1 160 
1 170 
1180 
1 190 

1200 

1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1298 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1588 
1598 
1600 



ABT 



ABU 



ABV 
ABU 



ABY 



ABZ 



CP 


0FH 


Jp 


2,31FDH 


CP 


18H 


RET 


C 


CP 


18H 


JP 


Z,ACL 


CP 


19H 


JP 


Z,ABB 


CP 


1AH 


JP 


2* ACQ 


CP 


1BH 


JP 


2, ACS 


CP 


1CH 


JP 


Z,31D4H 


CP 


1DH 


JP 


Z,ACH 


CP 


1EH 


JR 


Z,ACE 


CP 


1FH 


JR 


Z,ACB 


RET 




; 2EIGER AUF 2EILENEN 


LD 


DE, -VI DRAM 


LD 


B,l 


ADD 


HL,DE 


LD 


DE,CPL 


OR 


A 


SBC 


HL,DE 


JR 


C> ABU 


INC 


B 


JR 


ABU 


LD 


HL,VIDRAtf-CPL 


ADD 


HL,D£ 


DJNZ 


ABU 


RET 
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2EICHEN AUF BILDSCHIRI1 UND SCROLL 



CALL 


COLSET * ' '"" 


LD 


<HL) ,A 


INC 


HL 


LD 


DE,LAST 


RST 


18H 


RET 


C 


LD 


HL,LAST 


LD 


DE,-CPL 


ADD 


HL,DE 


PUSH 


HL 


EXX 




PUSH 


BC 


PUSH 


DE 


PUSH 


HL 


LD 


DE,FARBE 


LD 


HL,FARBE+CPL 


LD 


BC>GESAMT-CPL 


PUSH 


BC 


EXX 




LD 


DE,VIDRAH 
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1610 




LD 


HL,UIDRAI1 + CPL 


1620 




POP 


BC 


1630 


ACA 


LDI 




1640 




EXX 




1650 




LDI 




1668 




EXX 




1670 




LD 


A,B 


1680 




OR 


C 


1690 




JR 


NZ,ACA 


1700 




EXX 




1710 




POP 


HL 


1720 




POP 


DE 


1730 




POP 


BC 


1740 




EXX 




1750 




POP 


HL 


1760 


ACB 


LD 


DE,LAST ' ' 


1770 


ACC 


JP 


31 ACH 


1780 








1790 




; 1EH 




1800 








1810 


ACE 


PUSH 


HL 


1820 




CALL 


ABT 


1830 




JP 


31C3H 


1840 








1850 




; CR 




I860 








1870 


ACF 


CALL 


369AH 


1880 




CALL 


ABT 


1890 




ADD 


HL,DE 


1900 




LD 


DE,LAST 


1910 




RST 


18H 


1920 




JR 


Z,ABZ 


1930 




RET 




1940 








1950 




; CURSOR 2UH ZEILENAN 


I960 








1970 


ACH 


CALL 


ABT 


1988 


AC I 


JP 


CURSET 


1990 


ACL 


PUSH 


HL 


2000 




CALL 


ABT 


2010 




EX 


DE,HL 


2020 




POP 


HL 


2030 




RST 


18H 


2040 




JR 


Z.ACH 


2050 




DEC 


HL 


2060 




JP 


CURSET 


2070 


ACM 


DEC 


HL 


2080 




LD 


DE,CPL 


2090 




ADD 


HL,DE 


2100 




JP 


CURSET 


21 10 








2120 




; CURSOR DOUN 


2130 








2140 


ACQ 


LD 


DE,CPL 


2150 




CALL 


360AH 


2160 




ADD 


HL,DE 


2170 




OR 


A 


2180 




CCF 




2190 




LD 


DE>LAST 


2200 




RST 


18H 
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2218 jr 

2220 LD 

2230 ADD 

2240 ACR Jp 

2250 ; 
2260 

2270 ; 

2280 ACS LD 

2290 CALL 

2300 ADD 

2310 LD 

2320 RST 

2330 jr 

2340 LD 

2350 ADD 

2360 ACT Jp 
2370 

2380 RST18N EX 

2390 LD 

2400 CP 

2410 ld 

2420 EX 

2430 jr 

2440 CP 

2450 JR 

2460 LD 
2470 RST18C JP 

2480 ; 

2490 END 



C,ACR 

DE,-GESAHT+CPL 

HL,DE 

CURSET 



CURSOR UP 



DE,-CPL 

360AH 

HL,DE 

DE.VIDRAH 

18H 

NC,ACT 

DE,GESA!1T 

HL,DE 

CURSET 

<SP> ,HL 

A,L 

0D8H 

A,H 

CSP),HL 

N2,RST18C 

30 H 

NZ,RST18C 

HL,GESAI1T-1 

RST18C 

INIT 



AUFRUF VON 30D8H 
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Kapi tel 2 : Die Programmierung der Tonausgabe 



Der PSG < Programmable Sound Generator ) im Co lour -Gen ie 
bietet vielfalt ige Hogl ichke i ten der Tonerzeugung mi t 
ger ingem Auf uand . Er hat. drei Kanale , die vol 1 i g unabhangig 
voneinander in Tonhohe, Lautstarke, Hiillkurve, Rauschen, 
. . . programmiert uerden kSnnen. AuBerdem bietet er 4 
paral lele Ein-/Ausgabeports . 



Die vi elen tlogl ichke i ten des PSG uerden Uber 16 Register 

programmiert. Fur diese 16 Register uerden aber nur 2 

Portadressen belegt. Daher mu0 sum Schreiben oder Lesen 

ei nes Regi sters zunachst dessen Hummer in Port E8H C=248) 

geschr ieben uerden , uonach der Uert in Port E9H (=249) 
geschrieben bzu. gelesen uerden kann. 
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Die 16 Register des PSG haben folgende Funktion 



Reg 





Bit 


0- 


-7 


Reg 


1 


Bit 


0- 


-3 


Reg 


2 


Bit 


0- 


-7 


Reg 


3 


Bit 


0- 


-3 


Reg 


4 


Bit 


0- 


-7 


Reg 




Bit 


0- 


-3 


Reg 


6 


Bit 


0- 


-4 


Reg 


7 


Bit 








Bit 1 



Bit 2 



Reg 8 Bit 0-3 
Bit 4 

Reg 9 Bit 0-3 
Bit 4 

Reg 10 Bit 0-3 
Bit 4 

Reg 1 1 Bit 0-7 
Reg 12 Bit 0-7 
Reg 13 Bit 



Bit 


3 


; = 









= 


1 


Bit 


4 


; = 









ss 


1 


Bit 


5 


: = 









=: 


1 


Bit 


6 


: = 









= 


1 


Bit 


7 


: = 









= 


1 



Kanal A Schuingungsdauer Fe i neinstel lung 

Kanal A Schuingungsdauer Grobeinstel lung 

Kan a 1 B Schui ngungsdauer Fei neinstel lung 

Kanal B Schuingungsdauer Grobei nstel 1 ung 

Kanal C Schui ngungsdauer Feinei nstel 1 ung 

Kan a 1 C Schuingungsdauer Grobeinstel lung 

Rauschper iode 

= Tonausgabe Kanal A ein 

= 1 Tonausgabe Kanal A aus 

= Tonausgabe Kanal B ein 

= 1 Tonausgabe Kanal B aus 

= Tonausgabe Kanal C ein 

= 1 Tonausgabe Kanal C aus 

Rauschen Kanal A 

Rauschen Kanal A 

Rauschen Kanal B 

Rauschen Kan a 1 B 

Rauschen Kanal C 

Rauschen Kanal C 

I/O Port A Eingabe 

I/O Port A Ausgabe 

I/O Port B Eingabe 

I/O Port B Ausgabe 
Lautstarke Kanal A 
= Hiillkurve Kanal 
= 1 HQ1 lkurve Kanal 
Lautstarke Kanal B 
= Hiillkurve Kanal 
= 1 Hiillkurve Kanal 
LautstSrke Kan a 1 C 
= Hiillkurve Kanal 
= 1 Hiillkurve Kanal 

Periode der Hiil lkurve Feineinstel lung 
Per iode der Hiillkurve Grobeinstel 1 ung 
HOLD 
= : Lautstarke am Ende auf 



ein 
aus 
ein 
aus 
ein 
aus 



A 


aus 


A 


ein 


B 


aus 


B 


ein 


C 


aus 


C 


ein 



.^ttl.f 
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Bit 1 



Bit 2 



Bit 3 



Reg 14 Bit 0-7 
Reg 15 Bit 0-7 



= 1 
ALT 
= 
= 1 
ATT 
= 

= 1 
CONT 
= 
= 1 



Lautstarke nach ei ner Per i ode hal ten 

Sprung von 15 auf oder umgekehrt 
keine Sprlinge 

mi t Lautstarke 15 beg i nnen 
mi t Lautstarke beg i nnen 



nur eine Periode 

bel iebig lange f ortsetzen 
1/0-Port A Daten 
I/O-Port B Daten 



Beispiele : 

Tonhohe: 

Die Tonhohe muB durch einen Tei lungsf aktor angegeben 
uerden . Dieser gibt an uie der Haupttakt geteilt uerden 
sol 1 . Dieser F aktor ist 12 Bit lang. Die niederuertigen 8 
Bit miissen in Reg , 2 oder 4 (Kanal A , B oder C) und die 
hoheruert igen 4 Bit in Reg 1 > 3 oder 5 geschr ieben uerden . 

Im Colour-Genie ROM ist eine Tabelle ftir alle 12 Tone der 
tief sten Oktave ( 1 ) jeuei Is in der unsauberen EACA-St immung 
und in einer besseren NCU-St immung entha 1 ten : 

C D E F G A H CIS DIS FIS GIS B 
EACA: D5B BE7 A9B A02 8EB 7F2 714 C9C B3C 973 86B 780 
NCU: 1090 EC0 D24 C68 B0C 9D8 8C8 FA0 DEB BB4 A70 948 

Die Tabellen beginnen im R0I1 bei 3DD1H bzu . 3DF1H. Die 12 
Bit 1 angen Schui ngungsdauern sind in zuei Byte - zunachst 
die Grobei nstel lung und f olgend die Feinei nstel 1 ung - 
abgelegt * 



1 auf Kanal A programmiert » 



So uird 


ein 


D 


d 


er Okta 




LD 






A,0 




OUT 

LD 

OUT 

LD 

OUT 

LD 

OUT 






C0E8H) 

A,0C0H 

C0E9H> 

A,l 

C0E8H) 

A»0EH 

C0E9H) 



~; Reg anuShlen.,,,,,,,.,,,. 

; Fei nei nstel lung A 
; programmi eren 
; Reg 1 anuahlen 

; Grobei nstel lung A 
; programm i eren 

Sol 1 das D nicht in der Oktave 1 sondern eine Oktave hbher 
erklingen, mufl statt des Tei 1 ungsf aktors 0EC0H der Faktor 
760 H programmiert uerden * Eine Halbierung des 
Tei 1 ungsf aktors beuirkt eine Verdopplung der Frequenz . 

Lautstarke: 



■ «i*ii;v * *. w;.< «» i ■*- t 



Urn das Rauschen abzuschalten und die Lautstarke auf 15 zu 
stel len , muB noch f olgende Sequenz programmiert uerden und 
der Ton erkl ingt : 
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LD 


A, 7 




OUT 


C0E8H) 


,A 


LD 


A,38H 




LD 


<0E9H) 


,A 


LD 


A, 8 




OUT 


C0E8H) 


>A 


LD 


A, 15 




OUT 


C0E9H) 


,A 



; Reg 7 anuahlen 

; = 00111000B 

; Rauschen aus , Ton an 

; Reg 8 anuahl en 

; Lautstarke Kana 1 A 

; = 15 



Zur Programmierung des PSG konnen leider nur uen ige 
ROII-Routinen v/eruendet uerden. Die Routine zum PLAY-Befehl 
kann nicht veruendet uerden , da Ausuertung der Parameter 
aus dem Basic text und Verarbe ltung zu eng ueruoben s ind ♦ 



* * 

* SOUHD : Uert auf PSG-Register ausgeben 

* 
* 



j-**.'^ ' *« 



E 
R 
I 



3E32H 

A=E 

A = Registernummer 

E - Uert 



*********************************************************** 

Funkt ion : 

entspricht BASIC: SOUND A,E 



i s p i e 1 : 




LD 
LD 
CALL 


A, 8 
E, 15 
SOUND 



Kanal A Lautstarke 
= 15 
SOUND 8, 15 



********************************************************** 

* SNDDE : Uert auf 2 PSG-Register ausgeben 

* 



* E : 

* R : 

* I : 

* 
* 


3E2AH 

A=E 

A = Reg isternummer 

DE - Uert 


******************* 


Funkt ion : 





entspricht BASIC: SOUND A,D:SOUND A-1,E 



Bei spi el 



LD 
LD 
CALL 



DE,0EC0H 

A,l 

SNDDE 



; Schuingungsdauer D 
; Kanal A 
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Fol gendes Be i spiel prog ramm gibt eine Tonleiter uber al le 
Qktauen mi t vol ler Lautstarke aus . Dazu uird aus der 
Tabelle der Schui ngungsdauern der Uert, fur den jeueiligen 
Ton entnommen , und fur jede Oktaue durch 2 dividiert, und 
der sich so ergebende Uert in den PSG programmiert . 



* * 

* BE1SPIEL * 

* * 

* TONLEITER UEBER ALLE QKTAVEN AUSGEBEN * 

* * 

* CO 1985 LUIDGER RoCKRATH * 

* * 



EQU 
EQU 
EQU 
EQU 
EQU 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

206 SOUND 

210 SNDDE 

220 FGR 

230 CDUR 

240 DELAY 

250 ; 

260 ; PROGRAIHISTART 

270 ; 

280 START LD 

290 LD 

300 CALL 

310 LD 

320 LD 

330 CALL 

340 LD 

350 OKTAVE LD 

360 LD 

370 TON LD 

380 I NC 

390 LD 

400 INC 

410 RLC 

420 RL 

430 PUSH 

448 DIV SRL 

450 RR 

460 DJNZ 

470 LD 

480 CALL 

490 LD 

500 CALL 

510 POP 

520 INC 

530 LD 

540 CP 

550 JR 

560 INC 

570 LD 

580 CP 

590 JR 

600 RET 

610 END 



3E32H 
3E2AH 
38A9H 
3DEFH 
0060H 



E,38H ; 

A, 7 ; 

SOUND 

E,1S ; 

A, 8 

SOUND 

B,l ; 

HL,CDUR+2 

C,l ; 

E,CHL) ; 

HL 

D, CHL> 

HL 

E ; 

D 

BC ; 

O " ; 

E 

DIV 

BC, 40000 

DELAY 

A,l ; 

SNDDE 

BC ; 

C ; 

A,C 

8 

NZ,TON ; 

B ; 

A,B 

9 

NZ,OKTAVE 

START 



SOUND A,E 

SOUND A,D:SOUND A-l ,E 

TABELLE C-DUR TONLEITER 
UARTESCHLEIFE 



KEIN RAUSCHEN 
AUF KANAL A-C 

LAUTSTAERKE = 15 



OKTAVE = 1 

; ZEIGER AUF C 

C=TONNR. 

SCHU.D. LADEN 



DE * 2 

OKTAVE RETTEN 

DE / 2, PRO OKTAVE 



UARTEN 

TON AUF KANAL A 

OKTAVE ZURUECK 
7 TOENE 



NEIN — > NAECHSTER TON 
8 OKTAVEN 



NEIN — > NAECHSTER TON 



•/Or*', i" 
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2.1 Die Programmierung der Para 1 lelschn i ttstel le 



Eine Parall elschni ttstel le ist im PSG eingebaut. Sie 

besteht aus 2 Port mit je 8Bi ts . Jeder Port kann zur 

Eingabe oder Ausgabe benutzt uerden . Dies ui rd mit den Bits 
6 und 7 im Reg ister 7 f estgelegt . 

Die Ports sel bst uerden Liber die Reg ister 14 und 15 gesetzt 
bzu. gelesen. 

Beispiel : 



LD 


A>7 


OUT 


C9E8H) ,A 


LD 


A,40H 


OUT 


(0E9H> ,A 


LD 


A, 14 


OUT 


C0E8H) ,A 


LD 


A,0FFH 


OUT 


<0E9H) ,A 


LD 


A, 15 


OUT 


C0E8H) ,A 


IH 


A, C0E9H) 



; Reg 7 anuahlen 

; Port A Ausgabe 

; Port B Eingabe 

; Port A anuShlen 

; Alle Bits setzen 



; Port B anuMh len 



; Port B abfragen 



«> .J.3W"' -, . — .' ■".i*f J .s~- 



Di e Centronics-Paral lelschn i ttstel le fur den 
Uber die Ports A und B des PSG bedient . 



Drucker uird 



Port 


A 


Bit 


0- 


-7 


Port 


B 


Bit 







Port 


B 


Bit 
Bit 
Bit 
Bit 


7 
6 
5 
4 





Ausgabe des 2eichens 
Ausgabe des Strobe 
Abfrage Busy 

Out of Paper 
Unit Select 
Ready 



r -/v ~, t 



-V *+ * -f ,- V 



m^ I t*7."f -- '"!--» — 



Der Strobe uird durch ein Monoflop auf dem Durcker interface 
verlangert. Fur etua die 10 fache 2eitdauer uird 
automat isch ein Busy generiert, auch uenn der Drucker d ies 
nicht anzeigt. 
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Kapi tel 3 : Der Bet r ieb mit der Diskettenstation 



1.3.1 A 1 lgemeines 



Fur den Zugriff auf Diskettenf i les stellt das DOS im R0I1 
eine ganze Anzahl leistungsf ahi ger Unter programme zur 
Uerf ugung , die groBtentei 1 s den entsprechenden 
Unterprogrammen im TRSDOS, NEUDOS und GDOS entsprechen, 
Led i g 1 ich die Einsprungadressen unterscheiden sich . Uahrend 
bei den genannten Betriebssystemen a 1 le Einsprunge in der 
Page von 4400H-44FFH liegen, sind sie beim Colour-Genie in 
die Page CE00H-CEFFH verlegt. Die LSB ' s der Adressen 
stimmen aber uberein. Dem CALL 4428H unter GDOS, ... 
entspricht also der CALL 0CE28H auf dem Colour-Genie. Beide 
Unterprogrammauf ruf e beui rken das Schl ieBen eines FCB * s . 



Der File Control Block 



Der File Control Block CFCB) enthalt alle Inf ormati onen 
Uber ein geof f netes File, die das DOS zum 2ugr i f f benoti gt . 
Dieser 32 Byte lange Speicherbereich b i Idet die Verbindung 
zuischen dem Programm und dem DOS. Beim Er6f f nen ei nes 
Fi les mittels INIT oder OPEN mussen die erst en Bytes den 
mi t CR abgeschlossenen Fi 1 en amen entha 1 ten . Diese Rout inen 
f ul len den FCB dann mit Da ten von der Diskette , uodurch das 
File dann mit den anderen Unterprogrammen bear bei tet uerden 
kann . Durch die CLOSE-Rout ine uird der Filename uieder in 
den FCB ei ngeschr ieben . 



Ein FCB 
auf gebaut 



zu einem getif f neten File ist f ol gender maB en 



FCB 



FCB + 3 
FCB + 4 
FCB + 5 

FCB + 6 
FCB + 8 
FCB + 10 

FCB + 1 1 
FCB + 12 
FCB + 13 



Bit 7 = 1 

= 

Bit 1 = 1 



Bit 0=1 



File ist eroffnet . . „,.„. . v , . Lli ,--%-^ 

Fi le ist geschlossen 

NEXT und EOF uerden Disk-relativ 

i nterpret iert 

Sektoren uerden 1 esegeschutzt 

geschr ieben . Feh ler 6 beim Lesen t 

LSB der Buf f eradresse , die beim OPEN in HL stand 

MSB 

NEXT BYTE, Nr . des Bytes im Sektor CFCB + 10,11>, 

uelches zunachst verarbeitet uird. 

Lauf uerksnummer 

EOF BYTE, Nr. des EOF-Byte im Sektor CFCB +12,13) 

LSB NEXT , des Sektor der zunachst ge lesen 

oder geschr ieben uird . 

MSB NEXT 

LSB EOF, LSB des letzten Filesektors 

MSB EOF 
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Besonders uicht ig im FCB sind die NEXT und EOF-Felder , die 
jeuei Is 3 Byte belegen. Das 2. und 3. Byte CUSB + LSB) 
geben die Sektornummer an . Das 1 . Byte gibt die Nummer des 
Bytes im Sektor an . Beim Sektorzugr if f ist die Nummer des 
Bytes unerhebl ich . 

Die ue iter en Bytes des FCB uerden mit Daten aus dem 
Direktory— Entry des Fi les gef ul It und sind hier nicht von 
besonderem Inter esse . Genauere Inf or mat ionen dazu konnen 
dem NEUDOS80 U2 . Handbuch entnommen uerden . 



Beim Sugriff auf ein File mit den beschr iebenen 

Unterprogrammen mu8 man sich urn den Auf bau des FCB n icht 

kummern . Beim Eroffnen eines Files mittels OPEN oder INIT 
gird er automat isch einger ichtet . 

Fur viele DOS-Unter programme gel ten ahnl iche Parameter . In 
DE ui rd die Ad r esse des FCB Uber geben , der , uenn nichts 
anderes angegeben i st , erof f net sein mu8 . Bei der Ruckkehr 
zeigt das gesetzte Zero- Flag erf olgre iche Bearbeitung des 
Unterprogrammes an. Andernfalls ist im Akku die 
Fehl er nummer , der en Bedeutung im DOS-Handbuch nachgelesen 
uerden kann . 



T . 



-t. ,' * 



-> -. v t 
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1 .3.2 Eroffnen von Fi les 



* 

: evtl . nicht exist ierendes Fi le eroffnen 



CE20H 

AF 

DE = Zeiger auf Fi lenamen 

CDE) = 1 . Zeichen des Fi lenamen 

CDE+n) = 9DH 

B = logi sche Record 1 ange 

HL = Buf f eradresse 

Z ~ Q : kein Fehler 

Z = 1 : Fehler 

A : Fehlernummer 



* INIT 

* E 

* R 

* I 

* 

* 
* 

Funktion : 

DE ueist auf ei nen Fi lenamen , der nach den Ri cht 1 inien fur 
Fi lenamen aufgebaut sein muB . Er kann also nach einem 
Schragstr i ch ei ne Erueiterung , nach einem Doppel punkt eine 
Laufuerksbezeichnung oder nach einem Punkt ein Password 
en thai ten * Existiert ein File mi t dem angegebenen Namen , so 
uird es eroffnet. Anderf al Is uird ein File neu 
ei ngerichtet . 



Beispie 


1 : 






LD 


DE,FCB 




LD 


HL, BUFFER 




LD 


B,0 




CALL 


INIT 




JR 


NZ, . . . 


FCB 


DEF11 


* TEST/TXT: 1 * 




DEFB 


0DH 




DEFS 


32 - * + FCB 


BUFFER 


DEFS 


256 



FCB-Adresse nach DE 
Buf f eradresse nach HL 
Logi sche Sektorlange =256 
Neues Fi le erzeugen 
Fehler, — > 



32 Bytes fur FCB t 
256 fur Buffer 
auch uenn B < > 
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*********************************************************** 
* 

: exist ierendes File eroffnen 



* OPEN 

* 

* 

* 

* * 
*********************************************************** 



E : CE24H 

R : AF 

I : DE = Zeiger auf Fi lenamen 

(DE) = 1 . Zeichen des Fi lenamen 

CDE+n) = 0DH 

B = log ische Record lange 

HL = Bufferadresse 
: Z = : kein Fehler 

2=1: Fehler 

A : Fehlernummer 



****- * - *44 * 



Funkt ion 



Uie OPEN. Existiert 
Feh ler abgebrochen . 



das File aber noch n icht, > uird mit 



Bei spiel 



iehe INIT 



1.3.3 Diskettenbetr ieb : Schreiben und Lesen 



Seite 43 



1.3.3 Schrei ben und Lesen von Files 



B/teueises Schrei ben : 

* * 

* 

* 

* 
* 
* 
* 
* 
* 



* RDBVTE 

* 



* 
* 
* 
* 
* 
* 
* 
* 



E 
R 
I 




Byte von Fi le lesen 

0013H 

AF 

DE = Zeiger auf eroffneten FCB 

2=0: kein Fehler 

A : gelesenes Byte 
Z = 1 : Fehler 

A : Fehlernummer 



*********************************************************** 
Funktion : 

Das nachste Byte des Fi les uird gel esen > uobei bei Bedarf 
ein Sektor in den Buffer nachge laden uird . Der Einsprung 
fur diese Routine liegt in der Page 0! uber RAM-Vektoren 
uird zur ausfuhrenden Routine im DOS verzueigt. 



ei spiel : 




LD 


DE,FCB 


OOP CALL 


RDBYTE 


JR 


NZ, ERROR 


PUSH 


DE 


CALL 


OUTCH 


POP 


DE 


JR 


LOOP 


RROR CP 


28 


RET 


Z 



Zeiger auf gebf f neten FCB 
1 Byte lesen 
Fehler ? — > 

Zeichen ausgeben 

weiter 

Ende der Datei ? 

ja, fertig 



Fehlerbearbeitung 



*********************************************************** 



* URBYTE 



E 
R 
I 



Byte auf File schreiben 

601BH 

AF 

DE = Ze i ger auf er of f neten FCB 

A = zu schrei bendes Byte 

Z = : kein Fehler 

Z - 1 : Fehler 

A : Fehlernummer 



* 
* 

*********************************************************** 



Funktion 



Das Byte im Akku uird auf das File geschr ieben , uobei falls 
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erforderl ich ein Sektor auf Diskette geschrieben uird, 



Beispiel : 




LD 


DE,FCB 


LOOP LD 


A, CHL) 


AND 


A 


JR 


Ct > * • * 


CALL 


URBYTE 


JR 


rt <L* y + * * 


IHC 


HL 


JR 


LOOP 



DE zeigt auf eroffn 

Zeichen 1 aden 

Ende ? 

ja, — > 

By te schre i ben 

Fehler, --> 

uei ter 



FCB 



Sektoren schreiben und lesen : 

* 

* RDSEC : Sektor von File lesen 
* 

* E 

* R 

* I 

* 

* 

* 

* * 

T ^F ^F ^F ^F T ^F "T ^ T T * T ^^ * ^^ ^F ^T ^r ^P T ^^ ^P T 'T' T T ^^ T ^n T *T T ^P T *T T ^T T T T 'T' ^T 1 T ^F ^P ^r 1 T^ t* ^n ^P ^P t ^r ^n *fr ^^ T ^F 

Funkt ion : 



#■ «fc ' ,* ■# * ,fi 



CE36H 

AF 

DE = Zeiger auf eroffneten FCB 

B <> beim Eroffnen per OPEN: 

HL = Zeiger auf Buffer der Lange B (OPEN) 
B <> 9 beim Eroffnen per OPEN: 

CHL) . . . CHL + B-1 ) : gelesener Record 
Andernf a lis: 

gelesener Sektor im Sektorbuf f er 

(HL bei OPEN) 
Z = : kein Feh ler 
Z - 1 : Feh ler 

A : Fehlernummer 



Be im Lesen von Sektoren muB zuischen Fil es mi t 1 ogischen 

Sektorlangen von 256 und anderen unterschieden uerden. 

Uurde ein File mit e inem Uert von B <> eroffnet , dann muB 

beim Aufruf von RDSEC in HL die Ad r esse ei nes Buffer 

entsprechender Lange ubergeben uerden, in den durch dieses 

Unter programm die nachsten B Bytes des Files ubertragen 

uerden. Uird dadurch eine phys. Sektorgrenze Liberschr i tten , 

uird von Diskette d&r nachste physikal i sche Sektor in den 

Sektorbuf fer (HL beim of f nen des Fi les per OPEN) gel aden . 

Uurde aber das File mit der Sektorlange 256 eroffnet, dann 

muB beim Aufruf von RDSEC nichts in HL ubergeben uerden , 

und es uird nur der nachste Sektor von der Diskette in den 

Sektorbuffer gel aden. 

Ilit der RDSEC- Rout i ne ist auch das Lesen von Disk-relativ 

adressierten Sektoren m6gl i ch . Dazu mufl das Bit 1 von (FCB) 

gesetzt sei n . In diesem Fall uerden 

des FCB nicht Fiie-relativ 

i nterpret iert . 

Uird der FCB mit B=0 eroffnet, 

Zugr if f e (FCB +5) unuichtig . CFCB+10) und 

jeue i 1 s die Hummer des nachsten Sektors an . 



die NEXT und EOF-Felder 
sondern Disk-relativ 

ist fur die ueiteren 
(FCB+1 1 > geben 



1.3.3 Diskettenbetr ieb : Schreiben und Lesen 



Seite 45 



Beispie 


1 : 






LD 


DE,FCB 




LD 


HL, BUFFER 




LD 


B, 128 




CALL 


OPEN 




JR 


NZ,FEHLER 




LD 


HL, RECBUF 




CALL 


RDSEC 




JR 


N2,FEHLER 


FCB 


DEFH 


'TEST/TXT:0> 




DEFB 


0DH 




ORG 


FCB +32 


BUFFER 


DEFS 


256 


RECBUF 


DEFS 


128 



; Fi le ertif f nen 

; logische Recordlange= 128 

; Fehler, — > 

; logischen Record -> (HL) 



; Fehler , — > 



; Sektorbuffer fur OPEN 
; Buffer fur log . Record 



( 



"■-+ 'J- 1" J V *— V * ** \l *f - h i 



S, 4* ^ *t* Yr 1 *' -v A * -f * X$. v* v -* "*V 1 ■** V * X* ^ 



„*\ or *> •* 1* *■•» j t 
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CE39H 

AF 

DE = Zeiger auf eroffneten FCB 

B <> beim Eroffnen per OPEN: 

HL = 2eiger auf Buffer der Lange B COPEN) 

(HD...CHL + B-1) : zu schrei bender Record 
Andernf al Is : 

zu schreibender Sektor im Sektorbuffer 

CHL bei OPEN) 
2 = 0: kein Fehler 
Z = 1 : Fehler 

A : Fehlernummer 



*f' ^n ^n T T T ^ ^^ ^ r ^n ^ ^* ^^ t *T* *^ ^r ^P *^ ■^r ^r ^* *^ * * * ^ ^ T T T ^ T 1 t^ t ^p * ^^ ^^ * T T ^^ ■^r ^ T T ^ T T ^^ t ^p t ^p ^p ■t 1, ^p ^^ 

* 

* URSEC : Sektor von File lesen 
* 

* E 

* R 

* I 

* 
* 
* 
* 

* 

Funktion : 

Beim Schrei ben von Sektor en mu6 genau uie beim Lesen 
zuischen Sektoroperat ionen und logi schen Recordoperat ionen 
unterschi eden uerden . 1st B beim Sffnen des Fi les mi t OPEN 
0, uird der Inhalt des Buffer , dessen Adresse beim OPEN in 
HL angegeben uird, auf das File geschr ieben <256 Bytes) . 
Andernfal Is uerden die B Bytes > die in dem Speicherbereich , 
auf den HL beim Auf ruf von URSEC ueist > in den Sektorbuf f er 
ubertragen , und - falls erf order 1 ich - dieser auf das File 
geschr ieben . 

1st das Bit von (FCB) gesetzt , uird der Sektor 
lesegeschutzt geschr ieben . Der art ig geschr iebene Sektor en 
ergeben beim Lesen einen Feh ler 6 . Das DOS schreibt den 
Direktory lesegeschiitzt . 

Uie bei RDSEC i st auch hier Disk-rel atives Schreiben 
mog 1 ich . <■.->. 



Bei spie 


1 : 






LD 


DE,FCB 




LD 


HL, BUFFER 




LD 


B>0 




CALL 


OPEN 




JR 


NZ, FEHLER 




LD 


HL, DATEN 




LD 


DE, BUFFER 




LD 


BC,256 




LDIR 






LD 


DE,FCB 




CALL 


URSEC 




JR 


NZ, FEHLER 


FCB 


* *■ ♦ 

DEFH 


'TEST/TXT 




DEFB 


0DH 




ORG 


FCB+32 


BUFFER 


DEFS 


256 


DATEN 


DEFS 


256 







; File eroffnen 

; Sektoroperat i on 

; Fehler ? — > 

; Sektorbuf fer fullen 



; Sektorbuffer schreiben 
; Fehler , — > 



Sektorbuffer fUr OPEN 
Speicherbereich in dem 
Daten stehen 
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1.3.4 Positionierung des NEXT 



Hit den folgenden Routinen kann das NEXT-Feld im FCB 
geandert uerden und dam it, auf einen speziel len Sektor im 
File zugegrif f en uerden , ohne das File void Beg inn an 
sequentiel 1 lesen . 



********************************************************** 



POS0 



E 
R 
I 




NEXT-Feld auf Sektor 8 positionieren 

CE3FH 

AF 

DE = Zeiger auf eroffneten FCB 

Z = 8 : kein Fehler 

2=1: Fehler 

A : Feh 1 ernummer 



„ ********************************************************** 



Funktion: 

Das NEXT-Feld im FCB uird auf den Fileanfang gesetzt. 1st 
im Buffer ein Sektor , der noch auf die Diskette geschr ieben 
uerden mu8 , uird dieser zunachst auf die Diskette 
geschr i eben . 



r 



Bei spiel : 




LD 


DE,FCB 


CALL 


pose 


CALL 


RDSEC 



2eiger auf geof f neten FCB 
FCB auf Sektor pos. 
Sektor laden 



*********************************************************** 

* * 

* POSBC : NEXT-Feld im FCB auf BC positionieren , „ , * 



* 
* 
* 
* 
* 
* 
* 
* 
* 



E 
R 
I 



CE42H 

AF 

DE * Zeiger auf eroffneten FCB 

BC = logische Recordnummer 

Z - : kein Fehler 

2 « 1 : Fehler 

A : Feh 1 ernummer 



* 
* 
* 
* 
* 
* 
* 
* 
* 



*********************************************************** 
Funktion: 



Das NEXT-Feld im FCB uird gleich BC * logische Recordlange 
gesetzt. Hit dem nachsten Filezugriff uird also der 
logische Record BC angesprochen . Ansonsten gleiche Funktion 
uie POS0. 
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Be i spiel : 




LD 


DE>FCB 


LD 


BC, 17 


CALL 


POS0 


LD 


HL,LOGBUF 


CALL 


RDSEC 



Zeiger auf geoffneten FCB 
Recordnummer = 1? 
FCB auf Record 17 pos . 
Zeiger auf log. RecBuffer 
Record 17 laden 



POSDEC : NEXT-Feld um einen Record decrement, ier en 



E 
R 
I 




CE45H 

AF 

DE = Zeiger auf eroffneten FCB 

Z - @ : kein Fehler 

2=1: Fehler 

A : Fehlernummer 






i.~, V !V +- 



Funktion: 

Das NEXT-Feld im FCB uird um die logische Recordlange 
erniedrigt . Ansonsten gleiche Funktion uie POS0 . 



i spiel : 




LD 


DE>FCB 


LD 


HL,RECBUF 


CALL 


RDSEC 


CALL 


POSDEC 


CALL 


RDSEC 



Zeiger auf ge5f f neten FCB 

Record -Buf f er 

1 og . Record 1 esen 

FCB auf einen Record zur . 

gleichen Record noch mal 



^t******************************************************t** 



NEXT-Feld auf EOF posit ion ieren 

CE48H 

AF 

DE = Zeiger auf eroffneten FCB 

Z = kein Fehler 

Z = 1 : Fehler 

A : Fehlernummer 



* POSEOF 
* 

* E 

* R 

* I 

* 

* * 



Funktion : 



Das NEXT-Feld im FCB uird 
Ansonsten siehe POS0 . 



auf das Fi leende gesetzt 



Be i spiel : 



LD 


DE , FCB 


CALL 


POS0 


CALL 


UR5EC 



Zeiger auf geSffneten FCB 
FCB auf EOF pos. 
File erueitern 
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********************************************************** 

* 

NEXT-Feld auf HLC posi t ionieren 



* POSRBA 

* 



E 
R 
I 



CE4EH 

AF 

DE - Zeiger auf eroffneten FCB 

HL = NEXT (H = MSB, L = LSB) 

C = NEXT Byte 

Z = : kein Fehler 

Z = 1 : Fehler 

A : Fehlernummer 



* 

* 

* 
* 

* 
*********************************************************** 



Funkt ion : 

Das NEXT-Feld im FCB uird auf HL und C gesetzt. HL gibt die 
Sektornummer an und C die Position im Record . Funkt ion 
sonst uie POS0 . 



Beispiel : 




LD 


DE,FCB 


LD 


HL,28 


LD 


C,80H 


CALL 


POS0 


LD 


HL,SECBUF 


CALL 


RDSEC 



'■*. * V M ' -i 



.» .-.v. , i ,\i. J.* 



; Zeiger auf geoffneten FCB 

; Sektornummer = 28 

; Byte - 128 

; FCB auf Sektor pos . 

; logischen Record lesen 



> t - >**f 



'* -i *>- us- 
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1,3.5 File Laden , Start-en , Loschen 






LOAD : File im Loader for mat 1 aden 

E : CE30H 

R : AF 

I : DE = Zei ger auf Fi lenamen 

CDE) = 1 . Seichen des F i lenamen 

CDE+n> = QDH 
0:2=0: kein Fehler 

Z = 1 : Fehler 

A : Fehl ernummer 



*********************************************************** 

Funkt i on : 

Ein File im Loader for mat uird gel aden . Die 
Spe icheradr essen > an die es gel aden uird > sind im 
Loader for mat en thai ten , das folgendermaflen auf gebaut ist : 

1 . Datenblock : 



a . Kennung = 1 H 

b. Anzahl der Datenbytes + 

c. Ladeadresse CLSB/HSB) 

d . Datenbytes 



2 C0 - 2 - 256 - 258) 



2. Startadressenblock: 

a. Kennung = 02H 

b. Anzahl der folgenden Byte C immer 02H) 

c. Startadresse (LSB/MSB) 

3 . Kommentarblock 

a. Kennung - Oder 03H-FFH 

b . Anzahl der folgenden Kommen tar bytes (0 

c . Kommentarbytes 

Beispiel : 

CMD"U DEHO, 0,300,0" 



= 256) 



1 . Datenblock : 

2 . Datenblock : 
Star t ad rb lock : 



01 90 00 00 F3 AF 

01 31 FE 00 DF DA 

02 02 00 00 



C250 Bytes) 
C 43 Bytes) 



14 44 
69 63 



Beispiel : 



FCB 



LD 


DE , FCB 


CALL 


LOAD 


DEFS 


'DEMO' 



Zeiger auf Fi lename 
File 1 aden 
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DEFB 13 

; Dies provoziert iibrigens einen Fehler 36 



^P ^P ^P ^r ^P ^P T ^P ^P ^P ^P ^P ^P ^p ^P T ^P ^ ^P ^P ^P ^r ^P ^p ^p ^P T T ^P T T ^P ^P T ^P ^P 't 1 T T ^P ^ ^ ^^ ^^ ^" ^^ ^ ^" ^r '^^ ^^ * * *^ ^r ^ ^ * * 



* 

* RUN 

* 

* 

* 
* 

* 
* 
* 
* 



* 
* 
* 
* 

* 
* 
* 

* 
* 
* 
* 

^t H^ ^ Hlft ^^^^^^^^ ^ ^ if, H^, ^. H^» ^ ^ ^ ^ f f ^ f T ^^^^^^^^^ ^ ^ ^ ^ ^ ^ ^ f ♦ ♦^^T^^T ^ ^ ^ ^ ^ ^ ^ 



: File im Loader for mat 1 aden und starten 

E : CE33H 

R : AF 

I : DE = 2eiger auf Fi lenamen 

C DE) = 1 . Zeichen des Fi lenamen 

CDE+n) = 9DH 
0:2=0: kein Fehler 

Z = 1 : Fehler 

A : Fehlernummer 



Funktion: 

Ein File im Loaderformat uird geladen und gestartet . 

Beispiel : 



FCB 



LD 


DE,FCB 


CALL 


RUN 


# * * 

DEFI1 


'COLASH/CnD' 


DEFB 


13 



; 2eiger auf Fi lenamen 
; File laden und starten 



t********t**t**ttt****tttt***tt*if-*tttt%t***t*tt******tt*ttt 



* KILL 

* 
* 

* 
* 
* 
* 



E 
R 
I 



File loschen 

CE2CH 

AF 

DE = Zeiger auf Fi lenamen 

CDE) = i . Zeichen des Fi lenamen 

CDE+n) = 0DH 

Z = © : kein Fehler 

2=1: Fehler 

A : Fehlernummer 



* 
* 

* 
* 

* 

* 

* 



*************************** ******************************** 

Funktion: 

Das File, dessen Namen im FCB steht, uird gelSscht. 

Be i sp i e 1 : 



FCB 



LD 


DE»FCB 


CALL 


KILL 


JP 


NZ, FEHLER 


* * # 

DEFI1 


'TEST' 


DEFB 


13 



Zeiger auf Fi lenamen 
File 16schen 
Fehler ? — > 
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3.6 File schlieBen 



*********************************************************** 

* 

: File 1 Sschen 



E 
R 
I 
O 



CE28H 

AF 

DE - Zeiger auf eroffneten FCB 

Z = : kein Fehler 

Z - 1 : Fehler 

A : Fehl ernummer 
(DE> = 1 . Zeichen des Fi lenamen 
<DE+n) = 8DH 



* CLOSE 

* 
* 
* 
* 
* 
* 

* . 

*********************************************************** 
Funkt-ion : 

Das dem gedf f neten FCB zugehorige File, uird gesch lossen * 
Dazu uird evt-1 . der 1 etzte Sektor auf Di skette und ei n 
neuer EOF auf Diskett-e geschr ieben und nicht, mehr benutzte 
Grans uerden uieder freigegeben. SchlieBlich uird der 
Filename uieder in der FCB geschrieben. 



--•,~ J * "*i * i 



Beispiel 



LD 
CALL 



DE , FCB 
KILL 



; 2eiger auf geoffneten FCB 
: File sch 1 ieBen 



• ..' ^ *...\ j 
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1.3.7 Beispi ele zum Di skettenbetr ieb 



Das erste Beispielprogramm ermog 1 i cht die Ausgabe eines 
bel iebigen Fi les auf den Bi ldschirm . Der Fi lename ui rd 
abgefragt, das File erbffnet und dann zeichenueise gelesen 
und auf den Bi ldschirm ausgegeben . 



160 

lie 

120 

130 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
420 
430 
440 
450 
468 
470 
480 
490 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 



********************************************* 

* * 

* BEISPIEL 
* 

* LESEN EINES FILES 
* 

* CO 1985 LUIDGER RoCKRATH 
* 
******************************************** 



OPEN 

RDBYTE 

INBUFF 

PRINTT 

OUTCH 

START 



LOOP 



ENDE 
FEHLER 



TEXT 
FEHMEL 



EQU 

EQU 

EQU 

EQU 

EQU 

LD 

CALL 

LD 

LD 

CALL 

JR 

EX 

LD 

CALL 

JR 

CALL 

JR 

PUSH 

CALL 

POP 

JR 

CP 

JR 

LD 

CALL 

JR 



0CE24H ; 

0013H ; 

05D9H ; 

2B75H ; 

0033H ; 

HL,TEXT ; 
PRINTT 

HL>FCB ; 
B,20 

INBUFF ; 

C, START ; 

DE,HL ; 
HL, BUFFER 
OPEN 

NZ» FEHLER 

RDBYTE ; 
NZ, FEHLER 

DE ; 

OUTCH ; 
DE 

LOOP ; 

28 ; 

Z, START ; 
HL, FEHMEL 
PRINTT 

START ; 



FILE OEFFNEN 

BYTE LESEN 

EINGABE EINER ZEILE 

TEXT AUSGEBEN 

ZEICHEN AUSGEBEN 

"FILENAME ?" AUSGEBEN 

FILENAME IN FCB 



EINGEBEN 
BREAK — > 
ZEIGER AUF 



FCB NACH DE 



FILE EROEFFNEN 
; FEHLER — > 
BYTE LESEN 
; FEHLER — > 
FCB-ADR. RETTEN 
AUSGEBEN 

UEITER . - - - . -• - — > 

ENDE DES FILES 

JA, NAECHSSTES FILE 

; FEHLERMELDUNG AUSGEBEN 

NEU BEG INN 



TEXTE 



DEFM 
DEFB 
DEFM 
DEFB 
DEFB 



'FILENAME ?' 



'DOSFEHLER !' 
13 





FCB 
BUFFER 



BUFFER 



DEFS 32 
DEFS 256 
END START 
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Fol gendes Bei spiel demonstr iert den d isk-rel at i ven Zugr if f 
auf einzelne Sektoren . Die Sektornummer ui rd abgef ragt und 
in das NEXT-Feld des FCB eingetragen . Uei terhi n ist 
uichtig, da8 im FCB der EOF auf den Uert 65535 gesetzb uird 
und das Bit fur disk-relatiuen 2ugr iff gesetzt uird . 
Der gelesene Sektor uird in 16 Zeilen a 16 Spa 1 ten auf dem 
Bi ldsch irm ausgegeben . Der Direktory begi nnt im Sektor 360 . 



190 ; 


********************************************* 


1 19 ; 


* 








* 


120 ; 


* 


BEISPIEL 




* 


130 ; 


* 








* 


140 ; 


* 


DISKRELATIVEN SEKTOR LESEN * 


150 


* 








* 


160 


* 


CO 


1985 LUIDGER R6CKRATH > ■ • -,. ■ -»*,•» 


170 


* 








* 


180 


,********************************************* 


190 












200 I 


?DSEC 


EQU 


0CE36H 


SEKTOR LESEN 


210 . 


tNBUFF 


EQU 


05D9H 


EINGABE IM BUFFER 


220 I 


DECLNO 


EQU 


1E4FH 


STRING IN ZAHL 


230 I 


>RINTT 


EQU 


2B75H 


STRING AUSGEBEN 


240 ( 


HUTCH 


EQU 


0033H 


ZEICHEN AUSGEBEN 


250 : 


3TART 


LD 


HL.TEXT1 


; FRAGE AUSGEBEN 


260 






CALL 


PRINTT 


i 


270 






LD 


HL,BUFFEF 


? 


280 






LD 


3,5 




290 






CALL 


INBUFF 


• ANTUORT LESEN 


300 






JR 


C, START 


; BREAK — > 


310 






CALL 


DECLNO 


; SEKTORNR. DEC. 


320 






LD 


CFCB+10) 


>DE ; IN NEXT LSB/tlSB 


330 






LD 


DE,FCB 




340 






CALL 


RDSEC 


' SEKTOR LESEN ... 


350 






JR 


NZ,FEHLEf 


$ ; FEHLER, — > 


366 












370 






; SEKTOR AUSGEBE1 


\ 


380 












390 ( 


UK 




LD 


HL,BUFFEI 


\ 


400 






LD 


BC,16 


B = C256> „ C - 16 Zl 


ZEILf 


■* 










410 ! 


LOOP 


LD 


A><HL) 


; ZEICHEN LADEN 


420 






CP 


t > 




430 






INC 


HL 




440 






JR 


NC,L1 


; >=> > > 


450 






LD 


A, ' ' 


; STEUERCODES DURCH > ' 


460 


LI 




CALL 


OUTCH 


; ZEICHEN AUSGEBEN 


470 






DEC 


C 


; 16 ZEICHEN AUSGEGEBEN 


480 






JR 


NZ,L2 


; NEIN — > 


490 






LD 


C>16 




500 






LD 


A,9DH 


; CR AUSGEBEN 


510 






CALL 


OUTCH 




520 


L2 




DJNZ 


LOOP 


; UEITER 


530 






JP 


START 




540 












550 






; FEHLERBEHANDLU3 


HG 


560 












570 


FEHLER 


CP 


6 


; DIR SEKTOR 


580 






JR 


Z,OK 


; JA — > 



"i*. 



»**-.' -i J * *'«**■. "{■ 



ZEICHEN / 



ERS. 



1.3. 
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590 




LD 


A, '?' 


; ANSONSTEN NEUBEGINN 


600 




CALL 


OUTCH 




610 




JP 


START 




620 




* 
* 






630 




; TEXTE 






640 




1 




. 


650 


TEXT1 


DEF11 


'SEKTOR 


IN LAUFUERK ?' 


660 




DEFB 







670 


FC8 


DEFB 


82H 


; FILE OFFEN, DISK RELATIV 


680 




DEFB 







690 




DEFB 







700 




DEFU 


BUFFET? 


; BUFFERADRESSE 


710 




DEFB 







720 




DEFB 







730 




DEFB 







740 




DEFB 







750 




DEFB 







760 




DEFU 





; NEXT 


770 




DEFU 


0FFFFH 


; EOF = 65535 


780 




DEFB 





^ 


790 




DEFB 







800 




DEFB 







818 




DEFB 







820 




DEFB 







830 




DEFB 







840 




DEFB 







850 




DEFB 







860 




DEFB 







870 




DEFB 







880 




DEFB 







890 




DEFB 







900 




DEFB 







910 




DEFB 







920 




DEFB 







930 




DEFB 







940 




DEFB 







950 




DEFB 







960 


BUFFER 


EQU 


* 


• 


970 




END 


START 





-*- «w .»w ' r , 



,i Jt ■■' i f i ■ 
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Das nachste Beispiel zei gt die Anuendung der 
Pos i t i on i erungsrout i nen . I nsbesonders be i m Arbe i ten m i t 
log ischen Records konnen diese Rout i nen s inn vol 1 eingesetzt 
uer den . Nach dem 6f f nen des Fi 1 es mi t der log ischen 
Record 1 ange von 100 > uer den zunachst 10 logische Records , 
die jeuei Is nur aus der Nummer und Leerzeichen bestehen , 
auf das File geschr ieben und d i eses uieder geschlossen * 
Danach uird es uieder geoffnet und einzelne Records unter 
Zuhi If enahme der verschiedenen Posi t ion i erungsrout- i nen 
gelesen und auf dem Bi ldsch irm ausgegeben . 



Hier noch mal ein uberbl ick 
Pos i t i on i erungsrout i nen 



Uber die verschiedenen 



Folgende Tabelle gibt an, auf uelchen logischen Record nach 
Auf ruf der entsprechenden Position i erungsrout i ne 
zugegr if fen uer den kann und uel chen Uert das NEXT-Fel d im. 
FCB nachher hat . 

Alleinige &nderung des FCB beuirkt nicht das gleiche uie 
die POSx-Cal Is, da diese gegebenenfal Is den momentanen 
Buffer auf Diskette schreiben . 



Log . Record . Nr . 



NEXT 
USB 



LSB 



BYTE 



POS0 

POSDEC 

POSBC 

POSRBA 

POSEOF 




-1 

BC 
RBA / log. Rec.L 
h i nter 1 etzten 



00 00 00 

- log . Rec . Lange 

BC * log. Rec. Lange 

H L C 

= EOF 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 



********************************************* 

* * 

* BEISPIEL * -"' \ '"''*■ ■"'"■'» ~% 

* * 

* TEST ZUR POSITIONIERUNG * 

* * 

* CO 1985 LUIDGER R6CKRATH * 



~. "Cif. 



*-*f-V* r? t 



;-i 



INIT 

OPEN 

URSEC 

RDSEC 

POS0 

POSBC 

POSDEC 

POSEOF 

POSRBA 

CLOSE 

OUTCH 

t 

START 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

LD 

LD 

LD 

CALL 

JR 



0CE20H 
0CE24H 
0CE39H 
0CE36H 
0CE3FH 
0CE42H 
0CE45H 
0CE48H 
0CE4EH 
0CE28H 
0033H 



FILE OEFFNEN 

FILE OEFFNEN 

REC. SCHREIBEN 

REC. LESEN 

POS AUF SEKTOR 

POS AUF LOG. REC BC 

POS EINEN SEC. ZURUECK 

POS AUF EOF 

NEXT = HLC 

FILE SCHLIESSEN 

ZEICHEN AUSGEBEN 



B,100 ; LOG. RECLAENGE = 100 
DE,FCB ; ZEIGER AUF FCB NACH DE 
HL, BUFFER 

INIT ; FILE EROEFFNEN 
NZ,FEHLER ; FEHLER — > 





1 .3. 


7 Diske 


■ttenbet- 


r ieb : Beispiele Sei te 57 




370 




LD 


HL, LOGBUF 


; LOGBUF HIT BLANK FUELLEN 




380 




PUSH 


HL 






390 


FLOOP 


LD 


CHD,' ' 


; BLANK IN BUFFER 




400 




INC 


HL 






410 




DJNZ 


FLOOP ; 


100 HAL 




420 




POP 


HL 






430 




LD 


B,'0' ; 


10 SEC. SCHREIBEN 




440 


SLOOP 


LD 


CHL>,B ; 


REC.NR IN BUFFER 




450 




CALL 


URSEC ; 


LOG. SEKTOR SCHREIBEN 




460 




JR 


NZ, FEHLER 






470 




INC 


B ; 


REC.NR. + 1 




480 




LD 


A,B 


10 GESCHRIEBEN 




490 




CP 


>0 ' + 10 






500 




JR 


NZ, SLOOP ; 


NEIN, UEITER 




510 




CALL 


CLOSE ; 


FILE SCHLIESSEN 




520 




JR 


NZ, FEHLER 


; FEHLER — > 




530 




LD 


B,100 ; 


LOG. RECLAENGE = 100 




540 




LD 


DE,FCB ; 


ZEIGER AUF FCB NACH DE 




550 




LD 


HL, BUFFER 






560 




CALL 


OPEN ; 


FILE EROEFFNEN . 




570 




JR 


NZ, FEHLER 


; FEHLER — > 




580 




LD 


HL, LOGBUF 




F , •"' " > 


590 




CALL 


RDSEC ; 


1 . REC LESEN -.-- - . -- - 




600 




CALL 


PRBUF ; 


UND AUSGEBEN 




610 




LD 


BC,8 ; 


AUF 8. REC POS 




620 




CALL 


POSBC 






630 




JR 


NZ, FEHLER 


; FEHLER — > 




640 




CALL 


RDSEC ; 


UND LESEN 




650 




JR 


NZ, FEHLER 


; FEHLER — > 




660 




CALL 


PRBUF 






670 




CALL 


POSDEC ; 


REC 8 NOCH rtAL 




680 




JR 


NZ, FEHLER 


; FEHLER — > 




690 




CALL 


RDSEC ; 


LESEN 




700 




JR 


NZ, FEHLER 


; FEHLER — > 




710 




CALL 


PRBUF 






720 




LD 


HL,1 ; 


AUF BYTE 500 




730 




LD 


C, 500-256 






740 




CALL 


POSRBA ; 


POS 




750 




JR 


NZ, FEHLER 


; FEHLER — > 




760 




LD 


HL,LOGBUF 






770 




CALL 


RDSEC ; 


REC 5 LESEN 




780 




JR 


NZ, FEHLER 


; FEHLER — > 




790 




CALL 


PRBUF 






X 800 




CALL 


POSEOF ; 


AUF FILEENDE POS. 




810 




JR 


NZ, FEHLER 


; FEHLER — > 




820 




CALL 


RDSEC 


; H INTER FILEENDE LESEN6' 




634 






* 


GIBT IIiriER FEHLER ♦ 




830 




JR 


N2, FEHLER 


; FEHLER — > 




840 




RET 








850 




* 








860 


FEHLER 


LD 




'?» FUER FEHLER AUSGEBEN 




870 




JP 


OUTCH 






880 




* 
J 








890 


PRBUF 


LD 


HL,LOGBUF 


; BUFFER AUSGEBEN 




900 




PUSH 


HL ; 


LOGBUF RETTEN 




910 




LD 


B,10O ; 


LAENGE = 100 




920 


PLOOP 


LD 


A,CHL> ; 


ZEICHEN LADEN 




930 




INC 


HL 






940 




PUSH 


DE ; 


FCB-ADRESSE RETTEN 




950 




CALL 


OUTCH ; 


UND AUSGEBEN 
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960 
970 
980 
990 

1000 
1010 
1029 
1030 
1040 
1050 
1060 
1070 

1080 



POP 
DJNZ 
POP 
RET 



DE 

PLOOP 

HL 



BUFFER 



FOB 



BUFFER 
LOGBUF 



DEFH 
DEFB 
DEFS 
DEFS 
DEFS 
END 



'TEST 

13 

27 

256 

100 

START 



FCB-ADRESSE ZURUECK 
UEITER BIS 100 
LOGBUF ZURUECK 



FILENAME 
CR 

27 + 5 = 



32 



SEKTOTBUFFER 



BUFFER FUER LOG. RECORD 



i* * ,t \ ■ tl * '. "* "* ".j* *V * U*'» 
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Das letzte Beispiel zeigt ein Basicprogramm zur Reparatur 
eines zerstbrten HIT-Sektors. Der HIT-Sektor (der zueite 
des Direktory) enthalt die Hashcodes aller Files. Uenn er 
zerstort ist , kann kein File mehr gelesen uerden . Uenn er 
vol 1 stand ig zerstort ist > hi If t auch f olgendes 
Basicprogramm erst , nachdem auf der Position 2 des 
HIT-Sektors der Hashcode des Directory CDIR/SYS) C4H 
eingetragen uurde , da sonst der Directory nicht gef unden 
uird . Das Unterprogramm ab Zei le 80 ermittel t den Hashcode 
ei nes Fi lenamens , der in A* stehen mu8. Dieser muB genau 11 
Zeichen 1 ang sei n , uobei Fi lename und -erue iter ung jeuei Is 
mi t Leerzeichen aufzufUl len sind . 

Die HIT-Sektor uird zunachst in das Feld HCI) eingelesen. 
Dann uerden al le we iter en Di rektory-Sektoren gel esen und 
die akt i ven Eintrage gesucht . Bei d iesen mu8 noch zui schen 
FPDE ' s und FXDE ' s untersch ieden uerden . Die Erstei ntrage 
C FPDE ' s) en thai ten den Fi len a men a us dem der Hashcode 
ermi ttel t und in den HIT CHI C I > ) e ingetragen uerden kann . 
Al le f olgende D I R-Ei ntrage eines Fi les enthalten einen 
Bezug auf den vorangehenden Eintrag , a us dem der Hashcode 
kopiert uerden kann * 

1st der gesamte HIT in H1CID neu generiert, mu8 er uieder 
in den DliR/SYS auf Diskette geschrieben uerden. Da der 
Direktory lesegeschiitzt auf der Diskette stehen mufi » uird 
zuvor durch den POKE in den FCB von File 1 CZeile 489) 
erreicht, das der Schreibbef eh 1 einen Sektor lesegeschiitzt 
schreibt. 



10 CLEAR 1080 

20 DEFIHT A-Z:DIMHI<:255:> 

30 DIM HC25S) ,H1(255> : ON ERROR GOTO 580 

40 0PEN"R",1 , "DIR/SYS" 

50 FIELD 1,128 AS A*, 128 AS B* 

60 DEF FN EXO CA,B) = (A OR B) AND NOT CA AND B> 

70 GOTO 170 

80 REH UNTERPROGRAIin HASHCODE 

90 HC=0 

100 FOR 11=1 TO 11 

110 HC = FN EXO CASC<niD*CF*, II , 1)) > HC) ' 

120 HC = HC * 2 

130 IF HC>255 THEN HC=HC-255 

140 NEXT 

150 IF HC=0 THEN HC=1 

160 RETURN 

170 REM HAUPTPROGRAIW 

180 GET 1,2 

190 FOR 1=0 TO 255:H1(I>-0:NEXT 

200 FOR 1=0 TO 127 

210 HCD-ASCCllIDSCA*, 1+1 , 1 > > 

220 NEXT 

230 FOR 1=0 TO 127 

240 HCI + 128)=ASCCt1ID*CB* > I + l , 1 > > 

250 NEXT 

260 FIELD 1>32 AS F*C1>,32 AS F*<2>,32 AS F*C3),32 AS 

F*(4),32 AS F*C5),32 AS F*C6>,32 AS F$C7) ,32 AS F$C8> 

270 H1C31)=H<31> 

280 FOR 1=3 TO 15 

290 GET 1,1 ! 

300 FOR J=l TO 8 
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310 F$=niD$<F*<J> ,6, 1 1) 

320 IF ASCCF*(J)> AND &H10 THEN GOSUB 510 

330 NEXT 

340 NEXT 

350 FOR 1=0 TO 255 

360 IF HKI)OH(I) THEN PRINT"H IT-Feh ler " ; I 

370 NEXT 

380 FIELD 1,128 AS A*, 128 AS B$ 

390 AA$="" : BB*="" 

400 FOR 1^0 TO 127 

410 AA*=AA*+CHR*CH1CI)> 

420 NEXT 

430 FOR 1=128 TO 255 

440 BB$=BB* + CHR*CH1CI )> 

450 NEXT 

460 LSET A$=AA* 

470 LSET B$=BB$ ■ « »- ■ - «-»»•( >■> '-•• <-••. - 

480 POKE 23708,129 

490 PUT 1,2 

508 END 

510 IF ASC<F*CJ)) AND &H80 THEN 570 

520 GOSUB 90 

530 K=CJ-1 )*32+I-3 

540 HKFO-HC 

550 PRINTF$ > K,HC 

560 RETURN 

570 K = ASC<HID*CF*CJ) ,2)) :HC=H1<:K) : GOTO 530 

580 IF ERR=46 THEN RESUME NEXT 

590 ON ERROR GOTO 



Hl»«' i* i ;», v> ?j if, '■£ >: 
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1 ,3.8 Datum und Uhrzeit, 



Datum und Uhrzeit uerden automat i sch per Interrupt 
aktualisiert. Sie konnen vom Basic aus mit TIHE$ abgef ragt , 
aber nicht gesetzt uerden . 



In f olgenden Speicherzel len sind 
abgelegt : 



Datum 



und Uhrzeit 



484 1H 
4042H 
4043H 
4044H 
4045H 
4046H 



Sekunde 

Ilinute 

Stunde 

Jahr 

tlonat 

Tag 



Mit POKE-Bef ehlen kSnnen Datum und Uhrzeit .gesetzt uerden. 
Das DOS stel It f olgende Rout inen zur Umuand lung von Datum 
und Uhrzei t in ei nen Str i ng zur Verf ugung : 



********************♦*****#********#******#*******#******* 



Zei t in String der Form hh : mm : 



umuandeln 



* C0NTI11 

* ' E 

* R 

* I 

* 

* 

* 



CE6DH 

AF, BC, DE, HL 

HL = Zeiger auf Buffer (8 Bytes lang) 

HL = Zeiger h inter ss 

CHL-8), CHL-7) - hh 

CHL-5>, CHL-4> = mm 

(HL-2) , CHL-1) = ss 



Funktion: 

Die Zeit aus den Speicherzel len 4041H-4043H uird im Format 
hh:mm:ss in den* vom Benutzer definierten Buffer 
geschr ieben . 



Be i spiel : 






; Zei 


t 


ausgeben 


LD 




HL, BUFFER 


PUSH 




HL 


CALL 




CONTIM 


LD 




CHL) ,0 


POP 




HL 


CALL 




PR I NTT 



Buf f erzeiger 

retten 

Zeit in Buffer 

Buf f erende markieren 

Bufferanfang zuriick 

Buffer ausgeben 
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*********************************************************** 



Datum in String der Form tt . mm . j j umuandel n 

CE70H 

AF> BC, DE, HL 

HL = Zei ger auf Buffer (8 Bytes 1 ang ) 

HL = Zeiger h i nter j j 

CHL-8>, CHL-7) = tt 

CHL-5), CHL-4) = mm 

CHL-2), CHL-1) = jj 



* 

* 



* CONDAT 

* E 

* R 

* I 

* O 

* * 
*********************************************************** 



Funkt ion 



Das Datum aus den Speicherzel len 4044H-4046H uird im Format 
hh:mm:ss in den uom Benutzer definierten Buffer 
geschr ieben . 



L' L «*yj4** ^zJrry *;.>4jW 



ei spiel : 






; Zei 


t 


ausgeben 


LD 




HL, BUFFER 


PUSH 




HL 


CALL 




CONDAT 


LD 




CHL) >9 


POP 




HL 


CALL 




PR I NTT 



Buf f erzeiger 

retten 

Datum in Buffer 

Buffer ende markieren 

Buf f eranf ang zurlick 

Buffer ausgeben 
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Folgendes Beispi el programm ubertragt Datum und Uhrzeit in 
einen Buffer und gibt diesen bei jeder ttnderung der Sekunde 
auf dem Bi ldschi rm aus . 



100 
110 

120 

130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
428 
430 
440 
450 
460 



* * 

* BEISPIEL * 

* * 

* 2EIT ABFRAGEN UND AUSGEBEN * 

* * 

* CO 1985 LUIDGER RSCKRATH * 

* * 



C0NTI11 
CONDAT 
PR I NTT 
CURSOR 

START 



BUFFER 



EQU 
EQU 
EQU 
EQU 

LD 

LD 

LD 

CALL 

LD 

INC 

LD 

PUSH 

CALL 

LD 

INC 

LD 

POP 

LD 

CP 

JR 

LD 

CALL 

JR 

• 

DEFS 
END 



0CE6DH 
0CE70H 
2B75H 
4020H 



ZEIT IN BUFFER 
DATUM IN BUFFER 
BUFFER AUSGEBEN 
CURSORADRESSE 



HL,4400H+40-18 

(CURSOR), HL ; CURSOR SETZEN 

HL, BUFFER ; DATUtl 

CONDAT ; IN BUFFER 

CHL),' '; SPACE DAHINTER 

HL 

A, (BUFFER+16) ; SECEINER RETTEN 

AF 

CONTIrt ; ZEIT IN BUFFER 

CHL>,13 ; CR IN BUFER 

HL 

<HL>,0 ; BUFFERENDE 11ARKIEREN 

BC ; SECEINER NACH B 

A, CBUFFER+16) ; NEUER SECEINER 

B ; AENDERUNG 

Z,START ; NEIN — > 

HL, BUFFER 

PRINTT ; BUFFER AUSGEBEN 

START 



17 
START 



*+***/■* £.**> *•'** r*»* T ' 1 > T+-*S < « 
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Tei 1 2 : Hi If sprogramme An lei tungen und Quel 1 programme 



Die Quel 1 programme , die f olgen „ si nd fur den COL ASM 
CK asset, ten- oder Di skettenuersion) ausgelegt * Die 
ORG-Adressen sind so f estgelegt , daft die Programm i m 
hSchsten Speicher des 32K-Systems residieren. Da der C0LASI1 
kei ne Assembl er 1 i stings mit Quel 1- und Ilasch in encode 
erstellen kann, uurden die Listings mit dem EDTASM unter 
GDOS mit einem Genie III s erstellt. Der Quellcode 
begi nnend mit der Zei lennummer kann aber auch auf einem 
Colour-Gen ie mit COL ASM verarbei tet uerden , die Syntax des 
Quellcodes ist bei EDTASM und COLASM identisch. Alle 
Programme auBer COLBAS Czu 1 ang ) uurden auch mit dem COLASM 
assembl iert und erzeugten dort einen einuandfrei 
1 auf f ah i gen Objektcode . Mnemonics , die vom COL ASM 
f ehlerhaf t assembl iert uerden (ADD HL , SP) , uurden durch 
DEFB ersetzt. 

Die Kassette bzu. Diskette mit alien Quel lprogramme Cinkl. 
der Beispiele aus Teil 1) ist nattirlich direkt vom COLASM 
zu verarbei ten . Alle Quel 1 programme sind dort als 
Basicprogramme auf gezeichnet , so uie es der COL ASM f order t » 

Uer Uber kei nen Assembler verf ugt C Der Assembler COL ASH 
kann von uns fur DM 69 > — Cauf Kassette > bzu . 95 , — Cauf 
Diskette} eruorben uerden) , kann auch mit einem Mon i tor (z . 
B . CBUG) die Programme d irekt i n den Speicher schreiben . 
Ui rd dabei die Star tadr esse CORG) geandert uerden , mu3 bei 
alien Befeh len , die da von bee inf luBt uerden » die Adresse 
entsprechend geandert uerden . 

Auf der Quel 1 pr ogrammkassette bzu -diskette fur DM 99 , — DM 
sind f olgende Sourcen aufgezeichnet : 



Bl/ASM 






B2/ASM 






B3/ASM 






B4/ASM 






B5/ASM 






B6/ASM 






B7/ASM 






B8/ASM 






B9/ASM 






VIDEO/ASM 






SEDIT/ASM 






COLBAS/ASM 


Cauf 


Di skette nur 


ARRAYD/ASM 


Cnur 


Diskette) 


ARRAY/ASM 


(nur 


Kassette) 


COPBIT/ASM 






SAVETAPE/ASM 


Cnur 


Diskette) 



Teile) 



Format der Diskette : 40 Spur , einseitig, doppel te Dichte 

Auf der Kassette sind die genannten Quel 1 programme in 
dieser Reihenf olge hinterei nander aufgezeichnet . 



■ -«tt*'^« <<-#'Ht r,..*i i 
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2.2*1 Bi ldschirmeditor SEDIT 



Das kurze Hasch inenprogramm SEDIT ermSgl icht vol les 
Bi ldschirmedi t ieren von Basicprogrammen , ahnlich uie bei 
den CBtl-Rechnern. SEDIT vereinigt grofle Ef f izienz mit 
einf acher Bedienung > da kompl izierte Manipu lat ionen mit 
uen igen einf achen und selbstver standi ichen Grundf unkt ionen 
durchgef Qhrt uerden konnen . 



Funktion 



SEDIT uird durch VerSndern des Displayvektors an den 
Basic interpreter angebunden , Der Auf ruf der OUTCH-Rout ine 
in der Hauptschleif e zur Ausgabe des Promptze ichen kann so 
erkannt und unterdruckt uerden . Stattdessen ui rd der 
Bi ldschirmeditor auf geruf en und beim DrUcken von < ENTER > 
diejenige logische Zei le , in der sich der Cursor bef i ndet , 
im I /O-Buf f er an den Basi c interpreter Ubergeben . 
Auflerdem mu6 die OUTCH-Rout ine angezapf t uerden , urn die 
Funktion des CR zu verandern. CR O0DH) beuirkt 
norma lerueise bei der Ausgabe per OUTCH das Position ieren 
des Cursors auf den Anf ang der f olgenden Zei le und das 
Lbschen dieser Zei le . Unter SEDIT uird vor der 
Posi tionierung der Rest der Zei le > in der sich di&r Cursor 
befindet, gelSscht und das Ende der Zeile durch ein 80H 
(Graf ikspace , unsichtbar) marki ert . Die f olgende Zei le, auf 
der en Anf ang der Cursor posi t ion i ert uird , uird nicht 
verandert . 

Durch die Hark i erung des Ende j eder 1 og i schen Ze i 1 e i st die 
Verarbeitung von bei iebig langen Zei len durch SEDIT 
mdglich. Die Harkierungen uerden beim Scrollen automatisch 
mitgenommen und durch SEDIT beim EinfUgen, Loschen, . « . 
r ichtig mod if iziert > uenn dies notuendig ist . 

Der CBtl-Bi ldschirmeditor arbeitet nicht mit solchen 
Hark i erung sondern mit Bi tmasken , die angeben , ob 
auf einanderf olgende Bi ldschirmzei len zusammengehoren . Da 
diese Bi tmasken bei jedem Scrol 1 verandert uerden mUssen , 
verbat sich dieses Vorgehen beim Colour — Genie, uenn eine 
vol 1 ige Neuprogrammi erung der OUTCH-Rout ine vermieden 
uerden soil. AuSerdem ermcSglicht das Konzept mit den 
Harkierungen inter essante Hbgl ichkei ten zum Ed it ieren , uie 
z. B. die Verknupfung zueier Zei len. 



•v*-*^ c t * 
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r- fc» e ± -ten S± e mit SEED I T 



Soba Id SEDIT geladen und initial isiert ist » erscheint 
der neue Cursor : e in bl inkendes Quadrat . Dieser erscheint 
for tan i mmer , uenn i m norma 1 en Betr i eb das Promptze i chen 
erscheinen uurde, also nicht unter AUTO > SYSTEH , EDIT oder 
uahrend der Programmausf Uhrung . 

Soba Id der bli nkende Cursor zu sehen ist , erof f net si ch 
Ihnen eine Uielfalt neuer tlogl i chkei ten das Programm zu 
verSndem . Da der Cursor mit den uier Pf ei 1 tasten 
zerstorungsf rei Uber den gesamten Bi ldschirm beuegt uerden «j jye^ ** ^,t. 
kann, uird auf der Cursorposi t ion abuechselnd das 
Cursorzeichen (ueiBes Quadrat) und das Zeichen , uelches 
sich auf dieser Posi tion bef and » angezeigt . 

Auf der Cursorposi tion kann der Bi ldschi rminhal t nun 
ei nf ach Uberschr ieben uerden , aber a 1 1 e Snderungen uerden 
erst in den Speicher Libernommen, uenn die ENTER-Taste 
gedrLickt uird (s.u.). 

Hit den vier Pf ei 1 tasten kann der Cursor beuegt uerden . 
Sto8t er bei Uor- oder Ruckuartsbeuegung auf das Zei lenende 
oder den -anf ang , geht er automat isch in die vorhergehende 
oder nachfolgende Zeile. Bei der Auf- und Abuartsbeuegung 
bleibt er am Bi ldschi rmrand stehen . 

(Da < A > zur Cursorbeuegung dient , erg ibt <SHIFT>< A > 
for tan den Exponent i at ionspf ei 1 . ) 



Bei den im f olgenden dargestel 1 ten Funkt ionen uerden von 
SEDIT keine physika 1 ischen Zeilen (d.h. die 64 Zeichen 
ei ner Bi ldsch i rmzei le> „ sondern log ische Ze i len Cd . h . 
Zeilen> die zuar langer als 64 Zeichen sein konnen , aber 
si nngemMB zusammengehc5ren . ) verarbei tet . 



Anmerkung zu den Beispielen : 

_ : Cursorposi t ion 

$ : Taste fes thai ten bis Cursor auf geuuenschter Position 



•v S i **,* ^UtAi.- n ' » 
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<SHIF , "T>< 



<DI 



> s 



Das Zeichen auf der Cursorposition 
Rest der logischen Zei le rtickt nach . 

Beispiel : 



uird geloscht ; der 



10 FOR 1=0 TO 10:PRINT I : NEXT 

10 FOR 1=0 TO 10:RINT I : NEXT 

10 FOR 1=0 TO 10: INT I : NEXT 

18 FOR 1=0 TO 10: NT I : NEXT 

10 FOR 1=6 TO 10 :T I : NEXT 

10 FOR 1=0 TO 10: _I : NEXT 

18 FOR 1=0 TO 10: I,: NEXT 

10 FOR 1=0 TO 10:iNEXT 

10 FOR 1=0 TO 10: NEXT 



<SHIFT><*-> 
<SHIFT>«-> 
<SHIFT><«-> 
<SHIFT><<«-> 
<SHIFT>«-> 
<SHIFT><«-> 
<SHIFT>«-> 
<SHIFT><«-> 



(Anstatt 8 mal die <SHIFT> und <^>-Taste zu drticken, konnen 
Sie diese Tasten auch einf ach f esthalten , bis der 2 « 
Doppelpunkt unter dem Cursor erscheint (s. u . 
Repeatf unktion) . 



<SHIFT><- 



< TIM 



> s 



Nach einmal igem Drticken von <SHIFT>< — *> bef indet sich 
SEDIT im Insert-tlode , der erst bei Drticken eines 
ni chtdruckenden Zeichen Cz . B . Cursorbeuegung Oder ENTER) 
uieder ver lassen ui rd . Im Insert-Mode uird jedes druckende 
Zeichen an der Cursorposition eingefugt und der Rest der 
logischen Zei le uird uei tergeschoben . Auch bei 
Uberschrei ten des Zei 1 enendes uird der Bi Idschirminhal t 
r ichtig korr igiert. 



■•tri" i • t 



^ f J' k—t J 



Beispiel : 

10 A=tllD*(A*,2). 
10 A^MIDSCA*^^ 

10 A=HID*<A*,2,2_ 
10 A=HID*CA*,2,1). 



<SHIFT><-*> 

<»> 

<1 > 

< ENTER > 



*?f -» v,ixjit*w. . Erwuf 



(Durch das einmalige <SHIFT>< — ► > uird SEDIT in den 
Insert-Modus verse tzt . Al le druckenden (d . h . d i rekt auf dem 
Bildschirm darstel lbaren Zeichen) uerden jetzt an der 
Cursorposition eingefugt, und der Rest der Zeile uird 
verschoben . Durch Eingabe eines nichtdruckenden Zeichen 
Cuie z.B.: <ENTER>) uird dieser nodus verlassen und im 
Beispiel die Zei le in Ihrer neuen Form abgespei chert . 
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<SMIF=*T><®> <SKZP-> a 



Vom Cursor an uird der Rest dev logischen Zei le 
ge 1 oscht . 

Beispiel : 

10 7 I,I*Ii_I*I*I <SHIFT><@> 

10 ? I , I*I„ 

i 

i 

<BREAK>: 



Vom Bi ldschirmende uird die erste f reie Zei le zur 
bequemen Bef ehlsei ngabe gesucht , und der Cursor dort 
posi t ioniert . 



:^Ft >a 



Uie gehabt » ) 
<ENTER>: 



Der Inhalt derjenigen logischen Zeile, in der sich der 
Cursor bef i ndet > uird tiber den Tastaturtreiber an den 
Basi c interpreter Obergeben Cist die Zeile 1 anger a 1 s 240 
Zeichen, uird ein LS-Error erkannt.). Der Cursor befindet 
sich danach in der nachsten logi schen Zei le . 
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ndttr-e Tri 



Hit SEDIT konnen Programmod i f i kat i onen , die sonst 
kompl iziert und languier ig sind, einfach und komfortabel 
erledigt uerden . Hier sind einige uicht i ge Tri cks 
zusammengetragen : 



1) Verschieben von Programmzei len 

Hit SEDIT kSnnen einfach Zei lennummern geSndert 
somit Programmzei len verschoben Oder dupl iziert uerden . 

Bei spiel : 



und 



20 



? I".ELEI1ENT"A(I> 
? I".ELEMENT"A< I) 



20< ENTER > 
LIST<ENTER> 



;j * ' J^t- . -.1 >' -r " 



2) Editieren nach Syntax-Fehl ern 

Bei Syntax-Fehlern spr ingt der TRS-80 automat isch in den 
2e i 1 ened i tor . Unter SED I T ver 1 aBt man d i esen am besten 
sofort mit ENTER (was einen Ausdruck der Zeile beuirkt) und 
edi t iert sie sodann mit SEDIT . 



3) VerknUpfen von Programmzei len 



Zuei Programmzei len konnen einfach zu einer einzigen 
verbunden uerden: 

3.1) Uberschreiben des letzten Zeichens der l.logischen 
Zeile Cletzte Bi ldschirmspa 1 te> . Der Cursor befindet sich 
sodann in der 2. Zeile und beide bilden nun eine logische 
Zei le » Hit Delete uerden nun nur noch die uberf 1 Ussigen 
Leerzeichen und die 2 .Zei lennummer entf ernt . 

3.2) Loschen des letzten Zeichen Cs.o.) mit Delete. Die 
2. Zeile riickt dann nach. Ueiter uie bei 3.1>. 



* .*-; 



Beispiel 



Bi Idschirmrand 



10 FOR 1-0 TO 10 

20 NEXT 

10 FOR 1=0 TO 10 

NEXT 

10 FOR 1=0 TO 10_ 

NEXT 

10 FOR 1=0 TO 1020 NEXT 

10 FOR 1=0 TO 100 NEXT 

10 FOR 1=0 TO 10_NEXT 

10 FOR 1=0 TO 10: NEXT 



2. 

2 



<SHIFT><**> 

*<SHIFT><4-> 

<SHIFT><^-> 

<SHIFT><«-> 

< : > 

< ENTER > 
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4) Ubernahme von Programmausdrucken 

; Hit, SEDIT konnen auch Ausdrucke von Programmen einfach 

j in den Speicher ubernommen uerden : z . B . konnen 

jj, 

i llaschi nenprogramme von einem kleinen Programm mit 

* Zei lennummer und DATA-Anueisung auf den Bi Idschirm gedruckt 

i uerden und dann mi-t SEDIT in den Speicher ubernommen 

» uerden . 



5) Uiederholung von ahnl ichen Direktanueisungen 

i 
i 

Direktanueisungen konnen ohne aufuendige Tipperei bequem 

mit verschiedenen Parametern durchlauf en uerden . . •-. v .*..«■** * *«. .«■?«, .=;!* >-« ij».- ..-«•»■ **.• 



KX e± nbuchstaiben unci UmX a 



Unter SEDIT ist eine vernunf t ige Veruendung der 
Klei nbuchstaben uie auf einer Schreibmaschine mogl ich » Ohne 
<SHIFT> Oder <LOCK> groB und mit klein. Ui 1 1 man den 
Or i g inal modus uieder erreichen, so kann man dies mit <CTRL> 
und <0>. Die Umlaute uerden durch Drucken der Tasten <CTRL> 
und < A > 0, U , a > o, u, s> erreicht C h interei nander > . Sie 
uerden auf dem Bi Idschirm richtig dargestel It und im 
Programmtext mit den ubl ichen Codes 5BH . .5DH , 7BH . . TEH 
abgelegt , so da8 ohne uei teres auf einem Drucker Li st i ngs 
vom Programm gemacht uerden konnen. Bei Eingaben im 
Programm konnen die Umlaute nicht genutzt uerden . 



..■•*..•?: 
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<<f > 

<SHIFT>«-> 

t 

<SHIFTX«*> 



<SHIFT><@> 
< BREAK > 

<CLEAR> 
< ENTER > 



Cursor 1 Zeichen nach rechts 

Cursor 1 Zeichen nach links 

Cursor 1 Zei le hoch 

Cursor 1 Zeile runter 

DELETE: Zeichen auf Cursorposition loschen 

Rest d&r Zei le nach 1 inks rucken . 
INSERT: Insert-Modus setzen. 

Folgende Zeichen an Cursorposition 

ei nf Ugen 
SKIP: Rest der Zei le loschen 
CPID: Cursor in erste f reie Zei le vom 

Bi ldsch irmende her posi tionieren 
CLEAR: Bildschirm lGschen 
RETURN : Zei le an Basic interpreter Ubergeben 



Kleinbuchstaben und Umlaute 



<CTRL><0> 

<CTRLXA> 
<CTRLXa> 
<CTRL><0> 
<CTRL><o> 
<CTRLXU> 
<CTRLXu> 
<CTRLXs> 



Umschal ten 
und zuriick 

a 

S 

a 
o 
o 

u 

B 



i n Schre i bmasch i nenmodus 



wF r **t!l"ti}* * * < * if S * *- v 7 i **■ f * 



it* v * *. ' **t w + -3^ m^" + a t i£.***j- ,f-*jf*r *■ ^ .* L *^4 r^K* 
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<X'2B 
0033 
318E 
<MC9 
31BF 
3165 
3203 
iA v B 
19A2 
0060 

4020 

4016 

40 IE 

40A7 

4036 
FS01 

0080 
0400 
0080 



BC50 

BC50 2A1E40 
BC53 2??*BC 
BC56 2168BC 
BC59 221E40 

BC5C 2A1640 
BC5F 21D2BE 
BC62 221640 
BC65 C3191A 



BC6S 210E00 
BC6B 3? 



BC6C 
BC6D 
BC6E 
BC6F 
BC70 
BC73 
BC74 
BC75 
BC77 
BC78 
BC7B 
BC7E 
BC80 



5E 

56 

E5 

217B1A 

DF 

El 

2845 

79 

21E0BF 

CB62BF 

2011 

2A2040 



00100 
001 10 
00120 
00130 
00140 
00150 
001&0 
00170 
00 ISO 
00190 
■50200 
00210 
00220 
00230 
00240 
00250 
00260 
00 27*") 
00280 
f *i0290 
00300 

00310 

00320 

00330 

00340 

00350 

00360 

'50370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

'5*5680 

00690 



INCH 

DUTCH 

SCROLL 

CLEAR 

CLE0L 

CR 

DOWN 

PET 

ERROR 

DELAY 

CURSOR 

\ E i^VEC 

disvec 

BUFFER 

LAST 
I E r'BD 

MARI- ER 

E2EIT 

RFREQU 



INIT 



SEDIT 



** TRS-SO-SCREEN-EDTIQR ** 
COPYRIGHT B\ LU1B0ER R0EC7 RATH 
f AISEPSTR. 54 
4050 M0EHCHEH6LADPACH 1 
J UN I 1*581 
BASl C-UNTERPROGRAMME: 



EQU 002BH 
EQU 0033H 
EQU 318EH 
EQU 01C9H 
EQU 31BFH 
EQU 3165H 
EQU 3203H 
EQU JA7PM 
EQU 19A2H 
EQU 0060H 
;BASIC-ZE16ER 
EQU 4020H 
EQU 4016M 

401 EH 

40A7H 

4036H 



EQU 

EQU 

EQU 
EQU 



TASTATURABFPAGE 
ZEJCHENAUSGABE 
BILDSCHIPMSCROLL 
BILD5CHIRM LQESCHEN 
BIS ZEILENENDE LDESCHEN 
CURSOR ZUM ZEILENANFANG 
CURSOR E1NE ZEILE RUNTEP 
RUED SPRUNGADREESE 
BAS I C-ERRORPOUT I HE 
2E3TSCHLEIFE 

CUR50RADRE5SE 
\ EYBQAPD-TREIBEP-VEt TOR 
DI5PL.AY--TREIBEP--VE!' TOR 
I / O-BUFFER ANFANG 



■* **W ** V1 



OFS^IH 



; INTERNE SvMBOLE 

EQU 90H jTPEMNT LOGISCHE TEILEN 

EQU 400H 

EQU 128 

; INITIALI5IERUN6: 

;A3EG 

ORG 0BC5OH 

;5EDIT INITIALJSIEREN 

LP HL, ', DISVEC) 

LD (0UT+1»,HL 

LD HL, SEDIT ; DISPLAYS TOR AENDEPN 

LD <DIS'>EC>,HL - ■ "• • ; <> 

LD HL, UEVVEC? 
LD HL.NOW E/ 
LD l\ EWEO ,HL 
JF 1A19H 



1 /\ >•, * T^ , 



HAUPTPROGRAMM 



LD HL, 14 
DEFB 3*H 
; = ADD HL 
; wird von 
LD E, (HL) 
INC HL 
LD D, (HLj 
PUSH HL 
LD HL,RET 
RST 18H 
POP HL 
JR Z,EDIT 
LD A,C ! 
LD HL,CTAB2 
CALL CONVER 
JR NZ,01 
LD HL, (CURSORS 



;RUEQSPRUNGADRESSE 



SP jDUPCH STACrMANIPULATION 

C0LA3M falsch ubersetzt 
;ERMITTELN 



; =RET' 1 

;JA 

; NORMALS AUSGABE 
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BC83 F5 


00700 




PUSH AF 


■ 




BC84 0E3A 


00710 




LD C,»:' 






BC86 A7 


00720 




AND A 






BC87 CD95BC 


00730 




CALL OUT 






BCBA Fl 


00740 




POP AF 






BC8B 2A2040 


00750 




LB HL, (CURSOR) 




BC8E 2B 


00760 




DEC HL 






BC8F 77 


00770 




LD (HL) , 


A 




BC90 C9 


00780 




RET 






BC91 4F 


00790 


01 


LD C,A 






BC92 D60D 


00800 




SUB ODH 






BC94 A7 


00810 




AND A 




; CARRY LOESCHEN! 


BC95 C20000 


00820 


OUT 


JP NZ,0 




;NEIN 


BC98 DD6E03 


00830 




LD 


L, UX+3) 




BC9B DD6604 


00840 




LD 


H, (IX+4) 




BC9E DD7E05 


00850 




LD 


A, UX+5) 




BCA1 A7 


00860 




AND 


A 




BCA2 2801 


00870 




JR 


Z,000 




BCA4 77 


00880 




LD 


(HL),A 




BCA5 E5 


00890 


000 


PUSH 


HL 




BCA6 CD5F30 


00900 




CALL 


305FH 


* 


BCA9 CD6531 


00910 




CALL 


CR 




BCAC 112800 


00920 


,.. ..'V'V- 


LD 


DE , 40 


-■.'J... .'," ./ .J-IO' 


BCAF 19 


00930 




ADD 


HL,DE 




BCBO EB 


00940 




EX 


DE,HL 




BCB1 IB 


00950 




DEC 


DE 




BCB2 El 


00960 




POP 


HL 




BCB3 CD36BD 


00970 




CALL 


SKI Pi 




BCB6 CDBABE 


00980 




CALL 


CR1 




BCB9 C30831 


00990 




JP 


3108H 




BCBC 23 


01000 


EDIT 


INC HL 




jNEUER STACK 


BCBD F9 


01010 




LD SP,HL 




BCBE 3E0E 


01020 




LD A, 14 




;'-' -CURSOR OFF 


BCCO CD3300 


01030 




CALL OUTCH 




BCC3 D9 


01040 




EXX 




iFLAG LOESCHEN 


BCC4 1E00 


01050 




LD E,0 


i 


* 


BCC6 D9 


01060 




EXX 






BCC7 2A2040 


01070 


LOOP 


LD HL, (CURSOR) 




BCCA CD2B00 


01080 


SCAN 


CALL INCH 




BCCD A7 


01090 




AND A 




; TASTE GEDRUECKT? 


BCCE 2002 


01100 




JR NZ, BRANCH 


;JA 


BCDO 18F8 


OHIO 




JR SCAN 


;NEIN 


BCD2 11C7BC 


01120 


BRANCH 


LD DE,LOOP 


; RUECKSPRUNGADRESSE 


BCD5 D5 


01130 




PUSH DE 






BCD6 FE60 


01140 




CP »S'+20H 


;SKIP? 


BCD8 2855 


01150 




JR Z,SKIP 


;JA 


BCDA FE20 


01160 




CP * ' 




;ZEICHEN < * * 


BCDC 380A 


01170 




JR C,CNTL 


;JA 


BCDE D9 


01180 




EXX 




; INSERT-FLAG GESETZT 


BCBF CB43 


01190 




BIT 0,E 






BCE1 D9 


01200 




EXX 






BCE2 C27FBD 


01210 




JP NZ, INSERT 


;JA 


BCE5 C33300 


01220 




JP OUTCH 


;ZEICHEN AUSGEBEN 


BCE8 D9 


01230 


CNTL 


EXX 




; INSERT-FLAG SETZEN 


BCE9 CBC3 


01240 




SET 0,E 






BCEB D9 


01250 




EXX 






BCEC FE19 


01260 




CP 19H 




; INSERT? 


BCEE C8 


01270 




RET Z 




;JA 


BCEF F5 


01280 




PUSH AF 






BCFO CD5F30 


01290 




CALL 305FH 
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BCF3 Fl 


01300 




POP AF 




BCF4 D9 


01310 




E*X ; 


INSERT-FLAG ZURL'ED 5ETZ. 


BCF5 CB33 


01320 




RES 0,E 




BCF7 D« 


01330 




EXX 




BCF8 FE18 


01340 




CP 18H ; 


DELETE^ 


BCFA 2862 


01350 




JR Z, DELETE ; 


JA 


BCFC FE1F 


01360 




CP 1FH ; 


CLEAR- 


BCFE CAC901 


01370 




JP Z, CLEAR ; 


JA 


BD01 FECI 


01380 




CF 1 ; 


BREAJ ? 


BD03 2838 


01390 




JR Z, BREAK ; 


J A 


BD05 FEOD 


01400 




CP ODH ; 


ENTERS 


BD07 CA3DBE 


01410 




JP 2, RETURN i 


JA 


BDOA 11D8FF 


01420 




LD DE,-40 ; 


ZEILE RAUF 


BDOD FE1B 


01430 




CP 1BH ; 


UP^ 


BDOF 2812 


01440 




JR Z.MOVE i 


JA 


BD11 11FFFF 


01450 


.■ ,- - <„-' - 


LD DE,~1 . . ; 


ZEICHEN ZURUEQ . ,.,.*,- , „ 


BD14 D608 


01460 




EUB 8 j 


i BAD " 


BD16 280B 


01470 




JR Z.MOVE ; 


J A 


BD18 110100 


1 480 




LD DE, 1 


i ZEICHEN VOP 


DD1R 3D 


014^0 




DEC A ; 


ADVANCE^ 


BD1C 2805 


01500 




JR Z.MGVE 


; JA 


BD1E 112800 


01510 




LD DE,40 


ZEILE RUNTER 


BD21 3D 


01520 




DEC A 


[DOWN" 1 


BD22 CO 


01530 




RET NZ 


ME IN 


BD23 19 


01540 


MOVE 


ADD HL,DE 


tZUM CURSOR ADDIEREM 


RD24 CDCSBE 


ft 1550 




CALL VIDENB 


[CURSOR NOCH IM VIDEORAM^ 


BD27 C8 


01560 




RET Z 


;NEIN, AEMDERUMG I NGN. 


BD28 7C 


01570 




LP A,H 




BD29 FE43 


01580 




CP 43H 




BP2B C8 


01590 




RET Z 


iNEIN 


BD2C C30831 


01600 




JP 3108H 




BD2F CP9EBE 


01610 


SI- IP 


CALL SEARCH 


iLETZTES ZEICHEN SUChFM 


BD32 EB 


01620 




EV DE,HL 


;LETZTES ZEICHEN 


BD33 DF 


01630 




R5T 18H 


IMIMTFP CURSORS 


BD34 EB 


01640 




EX DE,HL * : 


*' i 


BD35 D8 


01650 




RET C 


; JA 


BD36 3620 


01660 


St IP1 


LD (HL>,* ' 


; ZEICHEN LOESCHEM 


BD38 DF 


01670 




RST 1SH 


;LETZTE5 ZEICHEN GEL.^ 


BD3<* 23 


01680 




INC HL 




BD3A 20FA 


01690 




JR NZ,SUP1 


;NE1N 


BD3C C9 


01700 




RET 




BD3D 21E747 


01710 


BREAK 


LD HL,47E7H 


;LETZTES VIDEORAMB^TE 


BD40 7E 


01720 


BREAJ- 1 


LD A, (HL> 




BD41 FE20 


01730 




CP ' * 


; BLANK'? 


BB43 2006 


01740 




JR NZ,BREA^2 


iNEIN 


BD45 2B 


01750 




DEC HL 


;JA, WETTER ZURUECk 


BD46 7C 


01760 




LD A,H 


;VIDEORAMANF. ERPEICHT -1 


BD47 FE43 


01770 




CP 43H 




BD49 20F5 


01780 




JR NZ,BREAH 1 


;MEIM 


BD4B FESO 


01790 


BREAk 2 


CP 80H 




BD4D 2801 


01800 




JR Z,BREAh3 




BD4F 23 


01810 




INC HL 




BD50 CDCSBE 


01820 


BREAJ 3 


CALL VIDEND 




BD53 CCSE31 


'.) 1 830 




CALL Z, SCROLL 




BD56 222040 


f">1840 




LD < CURSOR ).HL 


iNEUER CURSOR 


BD59 3E0D 


01850 




LD A, ODH 


;CR 


BD5B C33300 


01860 




JP DUTCH 




BD5E 23 


01870 


DELETE 


IMC HL 


;LETZTE5 ZEICHEN AB 


BD5F CD9EBE 


01S80 




CALL SEARCH 


;CUR50P+1 SUCHEN 


BD62 2B 


01890 




DEC HL 





■ *•* »-!*•♦ Jt- 
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BD63 DF 


01900 


RST 18H ; 


HIT CURSOR VERGL. 


BD64 2816 


01910 


JR 2, DEL ; 


SPRUNG, WENN SLEICH 


BD66 DO 


01920 


RET NC ; 


FERTIG WENN HINTER CURSOR 


BD67 54 


01930 


LD D,H ; 


CURSQR=ZIELADRESSE 


BD68 5D 


01940 


LD E,L ; 


FUER BLOCKMOVE 


BD69 23 


1. 950 


INC HL ; 


CUR50R+i«QUELLfiDR. 


BD6A D5 


01960 


PUSH DE 




BD6B C5 


01970 


PUSH BC 




BD6C EDBO 


01980 


LDIR ; 


MOVE 


BD6E CI 


01990 


POP BC 




BD6F Dl 


02000 


PDP DE 




BD70 E5 


02010 


PUSH HL 




BD71 2 100 AC 


02020 


LD HL,0F000H-440< 


)H 


BD74 19 


02030 


ADD HL,DE 




BD7S 54 


02040 


LD D,H 




BB76 51) 


02050 


LD E,L 




BD77 23 


02060 


INC HL 




BD78 EDBO 


02070 


LDIR 




BD7A El 


02080 


POP HL 




BD7B 2B 


02090 


DEC HL 


.ZURUECK ZUM LETZTEN BYTE 


BD7C 3620 


02100 DEL 


LD (HL),' ' 


;MIT SPACE UEBERSCHR. 


BD7E C9 


02110 


RET 




BD7F F5 


02120 INSERT 


PUSH AF 


;ZEICHEN RETTEN 


BD80 CD9EBE 


02130 


CALL SEARCH 


;LETZTES ZEICHEN SUCHEN 


BD83 7E 


02140 


LD A. (HL) 


; CURSOR AUF MARKER? 


BD84 FE80 


02150 


CP MARKER 




BD86 2009 


02160 


JR NZ,L1 


;NEIN 


BD8S D9 


02170 


EXX 


;FLA6 SETZEN 


BD89 CBCB 


02180 


SET 1,E 




BDSB D9 


02190 


EXX 




BD8C 54 


02200 


LD D,H 


;ZEIGER AUF LETZTES Z. 


BD8D 5D 


02210 


LD E,L 


; -CURSOR- 1 


BD8E IB 


02220 


DEC DE 




BDBF 1806 


02230 


JR L2 




BD91 DF 


02240 LI 


RST 18H 


; VERGL. CURSOR-LETZTES Z. 


BD92 2803 


02250 


JR Z,L2 


; SPRUNG, WENN GLEICH 


BD94 D239BE 


02260 


JR NC,L3 


; CURSOR H INTER L.Z. 


BD97 7B 


02270 L2 


LD A,E 


;L.Z. AM ZEILENENDE? 


BD9S E5 


02230 


PUSH HL 




BD99 D5 


02290 


PUSH DE 




BD9A EB 


02300 ----- .-.._,, 


EX DE,HL : ~v„ 


^*" V - ■■ ,< ■■ L ■ i* >. t ,,i L .'-*fr« '«> v' W .>-_►, ;a 


BD9B 11A3BD 


02310 


LI) DE,L111 




BD9E D5 


02320 


PUSH DE 




BD9F E5 


02330 


PUSH HL 




BDAO C34C03 


02340 


jp 34ch ; 




BDA3 Dl 


02350 LI 11 


POP DE : 




BDA4 El 


02360 


POP HL 




BDA5 FE26 


02370 


CP 26H 




BDA7 2072 


02380 


JR NZ,L4 


;NEIN 


BDA9 E5 


02390 


PUSH HL 


;ENDE DER LETZTEN ZEILE 


BDAA 21E647 


02400 


LD HL,47E6H 




BDAD DF 


02410 


RST 1BH 




BDAE El 


02420 


POP HL 




BDAF 2019 


02430 


JR NZ,L5 


;NEIN 


BDB1 D5 


02440 


PUSH DE ; 


;JA, SCROLL 


BDB2 11D8FF 


02450 


LD DE,-40 ■ 




BDB5 19 


02460 


ADD HL,DE 


• 


BDB6 222040 


02470 


LD (CURSOR), HL 




BDB9 D9 


02480 


exx : 




BDBA D5 


02490 


PUSH DE ; 





#* ,*v"ft* *\W 



'*,sf ~[*fl*.i:J* ■r*t»*fcj 
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BBBB 


D? 


02500 


BDBC 


C5 


02510 


BDBD 


CB3E31 


02520 


BDCO 


CI 


02530 


BDC1 


D? 


02540 


BDC2 


DJ 


02550 


BDC3 


D9 


02560 


BDC4 


DJ 


02570 


BDC5 


21D8FF 


02580 


BDC8 


19 


02590 


BDC9 


EB 


02600 


BDCA 


21BE47 


02610 L5 


BBCD 


BF 


02620 


BBCE 


B5 


02630 


BDCF 


-T" 1- 


02640 


BDDO 




02650 


BDD1 


2830 


02660 


BPD3 


13 


02670 


BDD4 


1A 


02680 


BDD5 


FE80 


02690 


BBD7 


202A 


02700 


BDD" 


EB 


02710 


BDDA 


— i ™* 


02720 


BDDB 


IB 


02730 


BDDC 


DDE5 


02740 


BODE 


DD21E747 


02750 


BDE2 


1A 


02760 L6 


BDE3 


DD7700 


02770 


BBE6 


E5 


02780 


3DE7 


2 100 AC 


02790 


BDEA 


1* 


02800 


BDEB 


7E 


02810 


BDEC 


El 


02820 


BDED 


P5 


023 30 


BDEE 


DBE5 


02840 


BDFO 


1 1 OOAC 


02850 


BBF3 


DO 19 


02860 


BDF5 


DD7700 


02870 


BDF8 


DDE1 


02880 


BDFA 


Di 


02390 


BDFB 


DF 


02900 


BDFC 


IB 


02° 10 


BDFD 


BD2B 


02920 


BDFF 


20E1 


02930 


BEOl 


DDE1 


02940 


BE03 


C5 


02950 L7 


BE04 


E5 


02960 


BEOS 


1128AC 


02970 


BE03 


19 


02980 


BE09 


7E 


02990 


BEOA 


E3 


A^DOO 


BEOB 


F5 


03010 


BEOC 


CBBF31 


03020 


BEOF 


Fl 


03030 


BE 10 


E3 


03040 


BE11 


77 


03050 


BE12 


El 


03060 


BE 13 


CI 


03070 


BE14 


1 1 2700 


03080 


BE 17 


19 


03090 



EXX 

PUSH BC 

CALL SCROLL 

POP BC 

EXX I 

POP DE 

EX* 

POP DE 

LD HL.OFFDSH 

ADD HUDE 

EX DE,HL 

LD HL,47BEM 

BST 19H 

PUSH DE 

IMC HL 

INC HL 

JR Z,L7 

INC DE 

LD A, (DE' 

CP MAR* ER 

JP NZ,L7 

E> DE,Hl 

INC HL 

DEC DE 

PUSH ] * 

LD U,47E7H 

LD A, <DE> 

LD * IX+O' , A 

PUSH HL 

LD HL,0F'X>0H-4400H 

ADD HL,DE 

LD A, -HL> 

POP HL 

PUSH DE 

PUSH IX 

LD DE,0F000H-4400H 

ADD IX, DE 

LD UX+O) ,A 

POP IX 

POP DE 

RST 18H 

DEC DE 

DEC IX 

JR NZ.1.6 

POP IX 

PUSH BC 

PUSH HL 

LD DE, 0F000H-4400H-t-40 

ADD HL,DE 

LD A, <HL> 

EX <SP),HL 

PUSH AF 

CALL CLEOL 

POP AF 

EX (SP),HL 

LD (HL),A 

POP HL 

POP BC 

LD DE,39 

ADD HL,DE 



; DE=DE-40 



;MUSS EIN REST MACH 
;UNTEN UERSCHOBEN WERDEN" 1 



< t , ► -w .i ,*J. _j(i » »-», 



iMEIN 

jMAECHSTES ZEICHEN MAR* ER? 



:MEIN, fEIUE VERSCHIEBUNG 
jHL=ANFAMG DCR MAECHSTEM 1 

;QUELLADRE5FE aFBF> 

; ZIELADRESSE 



•J* *>tt. 



iFER'TIG"' 

;NEIH 



;FREIGEWORDENE ZEILE 
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- i- <*.' 



BEIS Dl 


03100 




POP DE 




BE 19 3680 


03110 




LD (HL), MARKER 




BE1B D9 


03120 


L4 


EXX 


;FLAS PRUEFEN 


BE1C CB4B 


03130 




BIT 1,E 




BE IE CB8B 


03140 




RES 1,E 


;UND LOESCHEN 


BE20 D9 


03150 




EXX 




BE21 2016 


03 1 60 




JR NZ,L3 


;GESETZT^— KEIN MOVE 


BE23 62 


03170 




LD H,D 


;EIN ZEICHEN VORWAERTS 


BE24 6B 


03130 




LD L,E 


;VERSCHIEBEN 


BE25 13 


03190 




INC DE 




BE26 E5 


03200 




PUSH HL 




BE27 D5 


03210 




PUSH DE 




BE28 C5 


03220 




PUSH BC 




BE29 EDB8 


03230 




LDDR 




BE2B CI 


03240 




POP BC 




BE2C Dl 


03250 




POP DE 




BE2D 2100AC 


03260 




LD HL,0F000H-4400H 


BE30 19 


03270 




ADD HL,BE 




BE31 E3 


03280 




EX <SP),HL 




BE32 3 100AC 


03290 




LD DE,0F000H~4400H 


BE35 19 


03300 




ADD HL,DE 




BE36 Dl 


03310 


' s 


POP DE 




BE37 EBB8 


03320 




LDDR 




BE39 Fl 


03330 


L3 


POP AF 


;NEUES ZEICHEN EINFUEGEN 


BE3A C33300 


03340 




JP DUTCH 




BE3D CD9EBE 


03350 


RETURN 


CALL SEARCH 


iLETZTES ZEICHEN SUCHEN 


BE40 E5 


03360 




PUSH HL 


; CURSOR RETTEN 


BE41 1305 


03370 




JR R6 




BE43 7E 


03380 


Rl 


LD A, (HL) 


;ERSTES ZEICHEN SUCHEN 


BE44 FESO 


03390 




CP MARKER 




BE46 2806 


03400 




JR Z,R4 




BE48 2B 


03410 


R6 


DEC HL 




BE49 7C 


03420 




LD A,H 




BE4A FE43 


03430 




CP 43H 


;ANF. DES VIDEORAM? 


BE4C 20F5 


03440 




OR NZ,R1 


;NEIN 


BE4E 23 


03450 


R4 


INC HL 




BE4F 7E 


03460 




LD A, (HL) 




RE50 FE20 


03470 




CP ' ' \ 




BE52 28FA 


03480 




JR Z,R4 




BE54 0600 


03490 




LD B,0 


j Z AEHLER t <f5-- - » , -j- 1 f ,,»i t- 


BE56 DD2AA74C 


i 03500 




LD IX, (BUFFER) 


; IN I/O-BUFFER 


BE5A 7E 


03510 


R2 


LD A, (HL) 


;UEBERTRAGEN 


BE5B E5 


03520 




PUSH HL 




BE5C 21E8BF 


03530 




LD HL,CTAB3 




BE5F C5 


03540 




PUSH BC 




BE60 CD62BF 


03550 




CALL CONVER 




BE63 CI 


03560 




POP BC : 




BE64 El 


03570 




POP HL 




BE65 DD7700 


03580 




LD (IX+0),A 




BE68 DF 


03590 




RST 18H 


;FERTIG? 


BE69 23 


03600 




INC HL 




BE6A DD23 


03610 




INC IX 




BE6C 280D 


03620 




J R Z j R<j 


;JA 


BE6E 3007 


03630 




JR NC,LEER 


;LEERE ZEILE 


BE70 10E8 


03640 




DJNZ R2 . 


;256 ZEICHEN UEBERTR. 


BE72 1E1C 


03650 




LD E,1CH ! 


; LS-ERROR 


BE74 C3A219 


03660 




JP ERROR ; 




BE77 DD2B 


03670 


LEER 


DEC IX ; 


;ZAEHLER AUF ANFANG 


BE79 El 


03680 




POP HL \ 


; CURSOR ZURUECK 


BE7A E5 


03690 




PUSH HL : 





,*r- 



>tK- 



Tei 1 2: Bi ldschirmedi tor SEDIT - Quel lprogramm 



Seite 78 



BE7B 


Dl 


03700 


R3 


PGP DE 




BE"*C 


DD 3 60 000 


03710 




LD (IX+0) ,0 ; 


EMDE MAPP IEREN 


BEQO 


CD6531 


03720 




CALL CF ; 


IN NAECHSTE ZEILE 


PES"' 


1 1 2800 


'.'3730 




LD PC, 40 




BESS 


19 


03740 




ADD HL,DE 




BE37 


CPPABE 


'"•3750 




CALL CPi 




BE3A 


CD'* 1 331 


03^60 




CALL 3103H 




BE8D 


2AA740 


03770 




LD HL, (BUFFER* ; 


PARAMETER FUER BASIC 


BE90 


2B 


03780 




DEC HL 




BE91 


3E0F 


03790 




LD A, 15 




BE93 


CD33O0 


03800 




CALL OUTCH 




BE^6 


AF 


03810 




XOR A 




BE9? 


32°940 


03S20 




LD r409°H»,A 




BE C >A 


Dl 


03830 




POP DE 


STACf hORRIG. 


BE9B 


CZ^EIh 


'"'3340 




JP RET -^3 


;7UP'JEC!- ZUM BASIC 


be^e 


E5 


03850 


SEARCH 


PUSH HI i ; 


CURSOR RETTEN 


BE9F 


1 000'*' 


03860 




LD BC,0 ] 


;ZEICHEH2AEHLER ' " " 


BEA2 


7E 


03870 


SI 


LD A, <HL> 


MAP^ EP EUCHBN 


BEA3 


FESO 


03880 




CP NAPIER 




BEA5 


2908 


03890 




JP :,S2 




BEA7 




03900 




INC ML 




BEAS 


03 


03° 10 




IMC BC 




BEA° 


CDL8BE 


03*20 




CALL OIDEND 


iBILDSCHIPMENDE" 1 


BE.AC 


20F4 


03°30 




JR NZ,S1 


iNEJN 


BEAE 


2B 


03940 




DEC HL 


;mUF LETTEN BILD5CHIRMPL. 


BEAF" 


03 


03° 50 


52 


rnc bc 




BEBO 


2B 


03960 


33 


DEC HL 


jLEERZEICHEN IGNORIEREN 


E<EB1 


OB 


03970 




DEC PC 




BEB2 


7E 


03980 




LD A, 'HL> 




BEB3 


FE20 


t")399«"> 




CP * ' 




BEB5 


28F9 


O4000 




JP /,S3 




BEB7 


E3 


04010 




EX <SP*<,HL 


; CURSOR ZUPUECI- 


PEBS 


Dl 


04020 




POP DE 


; -DE'-LETZTES ZEKHEN 


BEB9 


C^ 


04030 




PET 




BEBA 


CDC3BE 


04040 


CR1 


CALL VIDENP 


j.- ' t i n iJi,i ~ . , i ; 


BEBD 


CCSE31 


04050 




CALL Z, SCROLL 




BECO 


222040 


04060 




LD "CURSOR' 


,HL 


BEC3 


2B 


04070 




DEC HL 


;ZEILENENDE MAPUEREN 


BEC4 


3680 


04080 




LD 'HLsMAPtEP 




BEC6 




040*50 




INC HL 




BEC7 


C^ 


Ml 00 




RFT 




PECS 


P5 


04110 


VIDENB 


PUSH DE 




BEC9 


11E847 


04 1 20 




LD BE,4" r E8H 




BECC 


DF 


04130 




RET 18H 




BECD 


Dl 


04140 




POP DE 




BECE 


D8 


04150 




RET C 




BECF 


A*" 7 


04160 




>0P A 




BEDO 


7C 


04 1 ^O 




LD A,H 




BED1 


C9 


04180 
04190 


4 


RET 




BED2 


3AF*BF 


04200 


NEWI- EY 


LD A, (F^EYZL) 




BEDS 


A 7 


04210 




AND A 




BEDS 


2811 


04220 




JP Z.NU 




BEDS 


3D 


04230 




DEC A 




BED9 


32F9BF 


04240 




LD <F>EVZL),A 




BEBC 


2AFABF 


04250 




LD HL, (FhEYZG) 




BEDF 


7E 


04260 




LD A, (HL) 




BEEO 




04270 




INC HL 




BEE1 


22FABF 


04280 




LD 'Fl-EVZG) ,HL 




BEE4 


A7 


04290 




AND A 





lf'-«. 
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BEE5 CO 


04300 




RET NZ 


BEEfc 3E0D 


04310 




LD A.OI'H 


BEE8 C? 


04720 




RET 


BEE9 CD6FBF 


04330 


>\\ 1 


CALL REFEAI 


BEEC CDF5BE 


04340 




CALL Nt 1 1 


BEEF A7 


04750 




AND A 


BEFO ca 


04360 




RET Z 


PEF1 32FEBF 


04370 




LD <ZEICHN>,A 


BEF4 C9 


04380 




RET 




043 Q 




• 


BEF5 A7 


04400 


N* 1] 


AND A 


REF6 C8 


04410 




RET Z 


BEF7 FE4I 


04420 




CP 'A' 


PFF 1 ? 3814 


04430 




JR C,NI 7 


BEFB FE5B 


04440 




CP ' 2 ' + 1 


BEFD 7.822 


04450 




JP C, LETTER 


BEFF 280E 


04460 




JR Z,N1 3 


BFOt FEbO 


04470 




CP bOH 


BF03 3822 


0448 f '» 




JP C,F> EH 


BF05 2808 


044°0 




JP 2,Nh3 


BF07 FE7B 


04500 




CP 'r'+l 


BF0<? 3816 


04510 




JR C, LETTER . 


BFOB FE80 


04520 




CP 128 


BFOD 381 A 


04570 




JR C.FfEY2 


BFOF 211840 


04540 


N>3 


LB HC4018H 


BF12 CB7E 


04550 




BIT 7, (HLj 


BF14 2028 


04560 




JR NZ.WCTRL 


BF16 4F 


04570 




LB C,A 


BF17 E6BF 


04580 




AND OBFH 


BF19 FE1B 


04590 




CP 1BH 


BF1B 79 


04600 




LB A,C 


BFJC 2002 


04610 




JR NZ,E1 


BF1E EE40 


04620 




<0P 40H 


BF20 C° 


04630 


El 


RET 




04640 




* 


BF21 2JF8BF 


04650 


LETTER 


LD HL,SL 


BF24 AE 


04660 




,xQR (HL? 


BF25 18E8 


04670 




JR NK3 




04680 




* 


BF27 C61C 


046°0 


F^EYl 


ADD A,7CH~4-5C 


BF29 B677 


04^00 


F> EY2 


SUB 77H 


BF2B 214943 


047] 




LD HL,4349H 


BF2E 110700 


04720 




LD DE,7 


BF31 19 


04730 


FL2 


ADD HL.DE 


BF32 3D 


04740 




DEC A ! 


BF33 20FC 


04750 




JR NZ,FK2 


BF35 22FABF 


04760 




LD <FtEYZG>,HL 


BF3S 7B 


04770 




LD A,E 


BF39 32F9BF 


04780 




LD (F1EY7L/ ,A 


BF3C 1812 


04790 




JR NKC1 




04S00 


^ 


. 


BF3E CBBE 


04810 


MKCTRL 


RES 7, <HL) 


BF40 FE30 


04820 




CP '0' 


BF42 2811 


04830 




JR Z,MC2 , 


BF44 FE31 


04840 




cp - r 


BF46 D8 


04850 




RET C 


BF47 FE39 


04860 




CP '?' 


BF4* 3014 


04870 




JR NCNI-C3 


BF4B D631 


04880 




SUB T 


BF4D CB2136 


04890 




CALL 3621H ' 



*'!>!*' I1/W«f<t ^ 



;1EH UND 5BH VER1AUSCHEN 
; 'SHIFT A UND AJ 



i _ 
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BF50 


AF 


04900 


wei 


'OR A 




BF51 


32FEBF 


04°l'.i 




LD (ZEICHN^A 




BF54 


C9 


04920 




PET 




BF55 


3AF8BF 


04930 


m C2 


LD A, -SL) 




BF58 


EE20 


04 940 




/OF 20H 




PF 5A 


32F8BF 


04950 




LD 'SL',A 




BF5D 


18F1 


04960 




JR N*C1 




BF5F 


21DBBF 


04970 
04980 


NLC3 

• 


LD HL,CTABi 




BF62 


0108O0 


Q4990 


C0N7ER 


LP BCTABLEN 




BF65 


C5 


05000 




PLlbH BC 




BF60 


E0B1 


O5010 




CPIR 




BF63 


Ci 


05020 




POP BC 




BF69 


CO 


05030 




RET N7 




BF6A 


09 


05040 




ADD HL,BC 




BF6B 


2B 


05'">50 




DEC HL 




BF6C 


7E 


05060 




LD A, 'HL,' 


, " if M ' * ' *" ** }\ ^ * r * *u* i ^! [!;■ 


BF6D 


C* 


05070 

05080 


* 


RC:T 




BF&E 


3A80F3 


05090 


REPEAT 


LD A, (OFSBOHt 




BF71 


FE12 


05 1 00 




CP 12H 




BF73 


200D 


05110 




JP NZ.REPil 




EF75 


CDA938 


05120 




CALL 3PA9H 




BF78 


3A40FS 


05 1 30 


REP 12 


LD A, ff»FS40H> 




BF?B 


CB57 


05140 




BIT 2, A 




BF7D 


2&P t > 


05150 




JR Z,RF>'12 




BF7F 


CD BO 38 


05160 




CALL 38B0H 




BFS2 


213640 


05170 


REP11 


LD HL,LA5T 


; LET ZTEN T A5TATURSTATUS 


BF85 


0101F8 


05180 




LD BCJEVBD 


; '40" T 6-403C; NIT ZUST^ND 


BFS8 


AF 


05190 




XOP A 




BF89 


57 


05200 




LD D,A 


; DER TASTATUPVEPGLEICHEN 


BF3A 


32FFBF 


05210 




LD 'TM),A 




BF8D 


OA 


05220 


REPl 


LD A, (BCJ 




BF8E 


5F 


05230 




LD E,A 




BF3F 


AE 


05240 


1 


JfQR (HL' •■ ' 


; AEUDERUNC 1 * ~ ' "" " " " v 


BF90 


73 


05250 




LD (HL',E 




BF91 


202B 


05260 




JR NZ,REP2 


;JA 


BF97 


3AFFBF 


05270 




LD A, \TM) 




BF96 


B3 


05280 




OR E 




BF*7 


32FFBF 


05290 




LD <TM),A 




BF9A 


14 


05300 




INC D 




BF9B 


2C 


05310 




IMC L 




BF9C 


CB01 


05320 




RLC C 


SALLE ZEILEN OERGL. 


BF*E 


30ED 


05330 




JR NCREP1 


;JA 


BFAO 


2AFCBF 


05340 




LD HL, 'ZAEHLR) 




bfa3 


2B 


05350 




DEC HL 




BFA4 


7C 


05360 




LD A,H 


; =0- 


BFA5 


B5 


05370 




OP L 




BFA6 


3E00 


05380 




LD A,0 




BFA8 


200 B 


05390 




JR MZ,RETPEP 




BFAA 


3AFFBF 


05400 




LD A, (TM! 




BFAD 


A7 


05410 




AND A 




BFAE 


2805 


05420 




JR 2,RETPEP 




BFBO 


2E&0 


05430 




LD L,RFREQU 


;ZAEHLEF NEU SETZEN 


BFB2 


3AFEBF 


05440 




LD A, 'ZEICHNi 


;ZEICHEN IN AhJ-U 


BFB5 


22FCBF 


05450 


RETREP 


LD <ZAEHLR),HL 




BFB8 


A7 


05460 




AND A 




BFB9 


CA0F04 


05470 




JP Z,40FH 




BFBC 


El 


05480 




POP HL 




BFBD 


C9 


05490 




RET 





kVBi U'~' rv~ 
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05500 




• 
* 








BFBE 


5F 


05510 


REF'2 


LD e:. 


A 




;ENTPRELLUNG: 


BFBF 


C5 


05520 




PUSH 


BC 


, 


; 19 MS WARTEN 


BFCO 


1 0005 


05530 




LD BC 


, , 500H 


1 




BFC3 


CD6000 


05540 




CALL 


DELAY 






BFC6 


CI 


05550 




PDF BC 






BFC7 


OA 


05560 




LD A, 


(BC) 


■ 


; TASTE NOCH IMMER GEDR. 


BFC8 


A3 


05570 




AND E 




t 




BFC9 


2803 


05580 




JR 2, 


REF3 




;NEIN 


BFCB 


CD1A04 


05590 




CALL 


41AH 






BFCE 


210004 


05600 


REF3 


LD HL,EZEIT 




;ZAEHLER MIT EINSAT2ZEIT 


BFD1 


22FCBF 


05610 




LD (2 


'AEHLR1, 


HL 




BFD4 


32FEBF 


05620 




LD (ZEICHN) , 


A 




BFD7 


C9 


05630 
05640 




RET 

* 
t 








BFD8 


41 


05650 


CTAB1 


DEFM 


'AOUSaous' 




BFEO 


5B 


05660 


CTAB2 


DEFM 


' Aoufiabuli , 




BFEP 


01 


05670 


CTAB3 


DEFB 


1 


t 




BFE* 


02 


05680 




DEFB 


>■) 






BFEA 


03 


05690 




DEFB 




< 




BFEB 


08 


05700 




DEFB 


8 






BFEC 


05 


05710 




DEFB 


5 






BFED 


06 


05720 




DEFB 


6 " " 


. .. t ; 


^•< * < • -. $ ' .v i- ■„* 1 1 n- v i .^ ** * 


BFEE 


07 


05730 




DEFB 








BFEF 


08 


05740 




DEFB 


8 






BFFO 


5B 


05750 


CTAB4 


DEFM 


*' Abuf>a6uft ' 




0008 




05760 


TABLEN 


EQU 8 


; CTAB2-CTAB1 






05770 


• 










BFF8 


20 


05780 


SL 


DEFB 


20H 






BFF? 


00 


05790 


FKEYZL 


DEFB 









BFFA 


0000 


05800 


FKEYZG 


DEFW 









BFFC 


0000 


05810 


ZAEHLR 


DEFW 









BFFE 


00 


05820 


2EICH1M 


DEFB 









BFFF 


00 


05830 

05840 


TM 

■ 


DEFB 


o 






BC50 




05850 




END : 


[NIT . 






00000 TOTAL 


ERRORS 








, 




2432' 


\ TEXT 


AREA BYTES LEFT 











n:i'i ..v 



~.i'\ t-\ 
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2.2.1 Basicerueiterung COLBAS 



COLBAS bietet dem Cassettenbenutzer viele der 
Mogl ichkei ten , die sonst erst dem Diskettenbenutzer 
offenstehen . 

Es ist f olgendes unter COLBAS mog 1 ich: 



Flexibles 2usammen laden versch iedener - - '- ■"="' « **■.**■ *..'< i 

Basicprogramme von Cassette 

Suchen von 2eichenf olgen im Basi cprogrammtext 

USR0 bis USR9 

DEFUSRe bis DEFUSR9 

DEFFN 

LINE INPUT 

HID* a Is Anueisung 

INSTR 

RESTORE n 

Format iertes Listen uon Programmen 

Entf ernen unnotiger Leerzeichen und REM ' s 



Funktion : 



Die me is ten Eruei terungen uon NEUBAS uerden Qber die 
unbenutzten Diskbasicbef ehlsuorte aufgerufen. Diese 
Anbindung ist ahnlich uie beim Programm PACK beschrieben 
programmiert > aber hier noch einfacher. Beim Programm PACK 
muflte in der Diskettenversion der Bef eh 1 KI LL zum Loschen 
von Fi les erhal ten bleiben. Da her uird nach Auf treten des 
KILL zunachst das Argument gepruft. Uenn es eine 
Zeichenkette ist , uird ein File geloscht » andernfalls der 
Programmtext gepackt . 

Der RESTORE N-Bef ehl uird durch Veranderung des RST 
16H-Vektors impl ement iert . Dazu uird der RST 10H-Aufruf in 
der I nterpretat ionsschl eife, kurz vor dem Anspr ingen der 
einzelnen Routinen fur die versch iedenen Anueisungen 
abgef angen . 
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MERGE und RSET (ZUSAMMENLADEN MEHRERER BASICPROGRAMME) 



flit MERGE und RSET uird es moglich mehrere schon auf 
Cassette vorhandene Basicprogramme zusammen in den Rechner 
zu br i ngen . Dies eruei st sich als besonders uertvol 1 , uenn 
Sie in neu zu schrei bende Programme berei ts vorhandene 
Programmsegmente C insbesondere Unterprogramme aus einer 
schon vorhandenen Unterprogrammsammlung ) einfugen mochten . 



Durch Ei ngabe von ' MERGE ' uird das momentan im Rechner 
bef indl iche Basicprogramm "unsichtbar" gemacht . Der 
Speicher scheint 1 eer zu sein , uovon Sie sich durch Ei ngabe 
von ' LIST ' Liber zeugen konnen . Sie konnen nun das zueite 
Programm uie geuohnt mi ttels 'CLOAD * laden. Danach steht 
Ihnen dieses zueite Programm so im Rechner zur Uerf Qgung , 
uie Sie es nach normal en Lade vorgS ngen geuohnt sind » Das 
heiBt, Sie konnen das Programm laufen lassen, listen ... . 

Um nun das "unsichtbare" Programm zusammen mi t dem 
zuge laden zuei ten Programm zum Uorschein zu br ingen , mtissen 
Sie daf Ur sorgen , dafi die niedr igste Zei lennummer des 
zuei ten Programmes groBer ist als die hochste Zei lennummer 
des ersten < momentan "unsichtbar en" ) Programmes . Falls dies 
nicht ohnehin der Fall ist, kann mit Hilfe des 'NAME' 
Bef eh Is leicht daf ur gesorgt uerden , da8 das zueite 
Programm die erf order 1 ichen hoheren Zei lennummern erhSlt* 
CBei dieser Umnumer ierung ist es auch m5gl ich , ein 
zugel adenes Unter programm nach tragi ich an das auf ruf ende 
Programm anzupassen- ) 

Durch Ei ngabe von 'RSET* uird nun das erste Programm neben 
dem Zuei ten uieder "sichtbar" gemacht . Es stehen nun beide 
Programme zusammen im Speicher . 

Nach diesem Verf ahren konnen Sie nun noch bel iebig viele 
uei tere Programme zu 1 aden . 



Solange sich ein "unsichtbares" Programm im Rechner 
befindet erscheint zusatzlich zu jeder 'NEUBAS READY' 
Meldung der Text '* MERGE MODE *' auf dem Bildschirm. Dies 
soil Sie an das noch vorhandene, "unsichtbare" Programm 
er innern . 
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GET (SUCHEN VON ZEICHENFOLGEN 111 BASICPROGRAIinTEXT) 



Hit GET kbnnen bel i ebige Zeichenfolgen im Basi cprogrammtext 
gesucht uerden . Dies ist ntitzl ich uenn Sie z . B. f eststel len 
uol len ob , bzu . uo bestimmte Uar i abl ennamen im Basicprograrmntext 
benutzt uerden . Oder Sie mochten in ei nem 1 anger en 
Baaicprogrammtext eine best immte Stel le > deren Zei lennummer Sie 
nicht kennen , schnel 1 f inden . 



Sie geben * GET ' ein, und der Rechner meldet sich mit 'STRING-'. 
Nun konnen Sie die Zei chenf olge , nach uel cher gesucht uerden 
sol 1 , ei ngeben . Hierbei mtissen zuei Fal le untersch i eden uerden : 



1 ) Sie suchen eine Variable (z . B . AS*, N, N% ) oder 
einen Ausdruck mit Basicsch 1 usseluorten 

(z.B. GOTO 280, RETURN). In diesem Fall geben Sie 
die gesuchte Zeichenfolge ein, und schl ieBen mit 
' ENTER ' ab. 

2) Sie suchen Ze i chenf ol gen > die sich innerhalb von 
Anf uhrungsstr ichen ( " ) , in DATA-Anweisungen oder in 
Bemerkungen (hi nter REM bzu . ' ) bef inden . Hier geben 
Sie vor der eigent 1 i chen Zeichenfolge ' @@ ' ein 

und schl ieBen dann mit 'ENTER' ab. 

(Uenn Sie also z.B. die Zeichenfolge "COPYRIGHT BY" 

suchen, geben sie ' @@COPYRIGHT BY' ein.) 



In be i den Fallen uird der Rechner darauf hin die Zei lennummer n , 
i n ue lchen die gesuchte Zeichenfol ge auftritt, ausgeben . Sol 1 te 
die Zeichenfolge nicht im Basicprogrammtext uorhanden sein , so 
ui rd d ies anstel 1 e der Zei lennummer n gemeldet . 



Bemerkung : 



Tritt die gesuchte Zeichenfolge in einer Zei le 
mehrma Is auf , so uird auch di esel be Zei lennummer 
entsprechend oft ausgegeben. 

Dabei ist zu beach ten , daB z.B. in der Zeichen- 
folge "****" die Zeichenfolge "** " dreimal vor- 
kommt ♦ 



Bei 1) uird aus dem Such text vor dem Uerg leich mit 
dem Bas icprogramm der Zui schencode gebi ldet . 
Bei 2) uird d&r Such text n icht verandert . 
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USR0 bis USR9 (AUFRUF VON 10 VERSCHIEDENEN I1ASCH INENPROGRAnTlEN ) 



Uar es bi slang f Ur Sie nur mogl ich ein flasch inenprogramm 
aus einem Basicprogramm heraus aufzurufen , so konnen unter 
NEUBAS bis zu 10 verschidene Ilaschinenprogramme aufrufen 
uerden . 

Die Arbeitsueise der USR0 bis USR9 Funktionen ist- genauso » 
uie in Ihrem Basichandbuch unter USR erlautert. 



So rufen Sie z.B. mit 



A=USR7C0) 
das 7. riaschinenprogramm auf . 



DEFUSR0 bis DEFUSR9 CSTARTADRESSEN VON nASCHIHENPROGRAHtlEfO 



Bi slang muBte die Startadresse des tlasch i nenprogramms , 
uelches mittels USR aufgerufen uerden sollte, in zuei 
spezielle Speicherzel len "gePOKEt" uerden. 

Diese unpraktische Uorgehensueise uird unter NEUBAS durch 
die Befehle DEFUSR0 bis DEFUSR9 ersetzt. 



Sie geben z.B. 

DEFUSR7=15360 Coder hexadezimal DEFUSR7=&3C00 > 



ein und ueisen dam it dem 7 . riaschinenprogramm die 
Startadresse 15360 C hex 3C00 ) zu . 
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DEFFN CVOH ANUENDER DEFINIERBARE FUNKTIONEN) 



Hit DEFFN kdnnen Sie Funktionen, uelche haufig in einem 
Programm benutzt uerden , einmal definieren und dann irn 
Laufe des Programme beliebig oft durch den Funkt ionsnamen 
aufrufen . 

DEFFN hat folgendes Format: 

DEFFN FKTN CVARLIST) = AUSDRUCK 

FKTN ist der Name der Funkt ion , die hier definiert ui rd . 
Fur diesen Namen gel ten die gleichen Kriterien uie f Qr 
Var iablennamen . C A lso erstes Zeichen alphabet isch > al le 
uei teren al phanumer isch , nur die ersten be i den Zeichen 
uerden vom Basicinterpreter beriicksichtigt) 

Uei terhin muB im Funkt ionsnamen gekennzeichnet uerden , von 
uei chem Typ das Ergebn i ss der Funktion se in sol 1 . Die 
erf olgt uiederum nach den gleichen Kriterien* uie sie schon 
von den Variabl en namen her bekannt sind . ( A 1 so % fur 
ganzzahlige, t fur einfachgenaue, # flir doppel tgenaue und * 
fur Str i ng-Ergebn i sse . Ueg lassen ergibt ei nf achgenaue 
Ergebn i sse . ) 

VARLIST besteht aus sov ielen Var iablen C jeuei Is durch Komma 
getrennt ) , uie der Ausdruck auf der rechten Sei te an 
Argumenten benSt igt . 

AUSDRUCK ist die Funktion selbst. Sie darf nur eine 
Anue isung von ei ner zei le Lange sein. C Durch Doppel punk t 
getrennte Anueisungen sind nicht erlaubt.) 

Zum besseren Verstandnis folgende Bei spiele : •* " ■" , * " " — * " 

10 DEFFN CUBIC <X) = X*X*X 

20 INPUT A 

30 B - FN CUBIC CA) 

40 PRINT B 

In 10 uird die einfache Funktion CUBIC definiert. Sie 
liefert ein Ergebn iss einf acher Genauigkei t und benSt igt 
nur eine Variable in der Uari ablenl iste , da sie nur ein 
Argument C X) im Ausdruck hat . 

In 30 ui rd die Funktion CUBIC auf geruf en . Hier ist das 
Argument die Variable A. (Es konnte dort aber auch jeder 
bel iebige Ausdruck einfacher Genauigkeit stehen . > 

Oder: 10 DEFFN TE* <X*,Y*) = X*+"/"+Y* 
20 INPUT "VORUAHL";V* 
30 INPUT "RUFNUMHER";R* 
40 G* = FN TE* CU*,R*) 
50 PRINT G* 

Hier uird eine Funkt i on mi t zuei Str ing argumenten 
definiert, uelche in diesem Fall auch uieder ein 
Str ingergebn i ss 1 ief ert . CUas n icht immer der Fai 1 sein 
muB t ) 



^^h*:-hJ* ^C ** h. *^ . 
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LINE INPUT (ZEILENEINGABE) 



tlit dem normalen INPUT Befehl ist es nicht moglich in eine 
Str ingvar i ablen Kommata oder Anfuhrungsstriche einzugeben . 
AuBerdem uerden ei ngegebene , f Qhrende Leerzeichen nicht in die 
Str ingvar i ble ubernommen . Uei terhin uurde jede Eingabe mi ttels 
Ausgabe eines '?' auf gef ordert . Dadurch verbot sich die 
Anuendung des INPUT Bef eh Is in vielen Fallen. C Insbesondere 
Textverarbei tungsprogramme in Basic t > 

LINE INPUT umgeht diese Probleme und hat f olgendes Format : 

LINE INPUT "TEXT"; VAR* 



mi t 



TEXT ist ein beliebiger Text » welcher vor der Eingabe 
auf den Bi Idschi rm geschr ieben uird . CKann einschl ie8- 
lich nachf olgendem Semikolon entfallen!) 

VAR* ist die Stringvar i able , uelche die Eingabe Uber- 
ehmen sol 1 . 



Kurzes Be i spiel 



10 LINE INPUT »IHRE EINGABE BITTE!"; A* 
20 PRINT A* 



Hier erscheint nach der Ausgabe des Textes nur der Cursor in 
der nachsten Zei le . Ckein Fragezeichen mehr t ) 

Sie kSnnen nun bel iebige Zeichen eingeben C incl . f Uhrender 
Leerzeichen, Kommata, Anfuhrungsstriche usu.) bis Sie mittels 
<ENTER> die Eingabe abschlieflen. 



HID* CALS STATEMENT) 



HID* als Statement ist eine Art Umkehrung der HID$ Funktion. 
Wit dem HID* Statement uird ein Tei 1 eines Strings durch einen 
anderen Str i ng ersetzt . 

Das Format ist uiefolgt: 

niD$<VAR*,nl ,n2)=AUSDRUCK* 



mit 



UAR* ist die zu verSndernde Stringvariable 
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nl ist die Position , ab uel cher die Vera rider ung i n 
VAR$ beignnen sol 1 . (Erste Position im String ist 1 t > 

n2 g ibt die Anzahl der zu uerandernden Zeichen an . 
Kann auch entfal len. (einschl . uorstehendem Komma ! ) 
Dann uird AUDRUCK* soueit eingesetzt, da0 VAR* ihre 
urspriingl iche Lange beibehalt. 

AUSDRUCK* ist ein beliebiger Str i ngausdruck . 

Beach ten Sie , da0 die Ersetzung immer nur soueit erf olgt > da6 
die Lange des zu uerandernden Str i ng erhalten bleibt! 



Fur folgende Beispiele uird vorausgesetzt: A$="ABCDEFG" 



MID$<A$>2,2:> = "12345" 1 iefert: A*="A12DEFG" 

f!ID*CA$,5> ="12345" " A$="ABCD123" 

11 1 D* C A$ , 4 » 4 ) = " " M A$= " ABCDEFG " 



INSTR CSTRINGSUCH FUNKTION) 



Mi t INSTR ktinnen Sie Teilstrings i nnerha lb eines Str ing 
suchen . 

INSTR hat folgendes Format: 

INSTR Cn,AUSDRUCKl* > AUSDRUCK2*) 

mit: n ist die Position in AUSDRUCK1*, ab uelcher gesucht 
uerden sol 1. Kann entfal len. C einsch 1 . nachf olgendem 
Komma > In diesem Fall uird ab der 1. Position gesucht . 

AUSDRUCK1* ist der Str ingausdruck , in uelchem gesucht 
uerden sol 1 . 

AUSDRUCK2* ist der Str i ngausdruck , nach uelchem 
gesucht uerden sol 1 . 

Der Auf ruf der I NSTR Funkt ion 1 iefert als Ergebniss die 
Posi t ion , ab uelcher der gesuchte Str ing zuerst im zu 
durchsuchenden Str ing auf tr i tt . Uird der Tei 1 str ing nicht 
gefunden, so ergibt sich als Ergebniss. 



Bei den folgenden Beispielen uird uieder A$="ABCDEFG" 
vorausgesetzt : 



INSTRCAS, "EF"> 1 iefert 5 

INSTRCA*, "234") » 

INSTR<3,A*, "AB"> » 8 
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RESTORE H 



Hit RESTORE N ist direkte Zugrif f auf jede bel iebige 

DATA-Zeile moglich. N mu8 nicht uie bei GOTO, GOSUB , usu. eine 

Ganzzahlkonstante sein, sondern kann ein beliebiger Ausdruck 

sein. Die RESTORE-Anuei sung ohne Zei lennummer ist, naturl ich 
auch ueiterhin verf ugbar . 

Beispi el : 

10 DATA 10 

20 DATA 20 

30 DATA 30 

40 RESTORE: READ A: PRINT A; 

50 RESTORE 30: READ A: PRINT A; 

60 RESTORE 3*10: READ A: PRINT A; 

ergibt beim Starten mit RUN: 

10 30 30 

NAJ1E und LSET (formatiertes Listen) 



Diese Bef ehl e entsprechen i n Funktion und Format dem LIST bzu. 
LLIST Bef ehl . Aber es erf olgt eine formatierte Ausgabe auf 
Bildschirm bzu. Drucker, das hei0t: 



- Text beginnt immer erst ab Spalte 6 Cdavor stehen nur 
Zei lennummer n ! ) 

Vor und h i nter j edem BAS I C-Sch 1 tlsse luort uird ein 
Leerzeichen 
eingef ugt 

- Nach jedem * : * uird eine neue Ausgabezeile begonnen 

- IF-THEN-ELSE Strukturen uerden eingeruckt 



In dieser Form ausgegeben sind auch Programme, uelche durch 
einen 'PACKER' gegangen sind, uieder akzeptabel lesbar. 
Formatierte Listings vom Drucker eigenen sich ausgezeichnet 
a Is endglil tige Dokumentationen von BASIC-Programmen . 
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KILL CPACKER) 



Ein PACKER entfernt a us Bas icprogrammen Uberf 1 Lissige 
Leerzeichen und Kommentare ohne an der Funktion des Programmes 
etuas zu andern . 

Der Aufruf erfolgt mit: 

KILL < ZEILE < - 2EILE >> 

Durch di esen Bef ehl uerden im ganzen Programmtext C - Oder 
bei Angabe der optionalen Parameter, im spezifierten Bereich - 
) al le Leerzeichen und Kommentare entfernt. - - - 

Beim Packen des Programmes uerden al le VorsichtsmaBnahmen 
getroffen, urn die Funktion des Programmes nicht zu 
beei ntracht igen : 

1 ) Reine Kommentarzei len uerden nur dann vol IstSnd ig entfernt , 
uenn sie nicht ein Sprungziel bil den . Andernfalls bleiben 
Zei 1 ennummer und REM erha 1 ten ♦ 

10 GOTO 30 10 GOTO30 

20 REH ****** 30 REM 

30 REtl ENDE 



2> In HocKkommata eingeschlossene Zeichenketten uerden vom 
Packen nicht tangiert. 

10 PRINT "EINGABE "; 10 PR I NT"EINGABE "; 



3) Nicht in Hochkommata eingeschlossene DATA-Str ings uerden so 
gepackt , dafl sich d&r durch READ gelesene String nicht andert. 

10 DATA 1,2,3,4 10 DATA1 ,2 ,3 ,4 

I n sel tenen Fallen, die von PACK nicht erkannt uerden > kann 
das Packen unter ung tins t igen Voraussetzungen zu einer Snderung 
der Funktion des Programmes fuhren. Ein Beispiel soil das 
Problem verdeutl ichen : 

10 IF A=F OR 1=18 THEN 100 

uird zu 

10 IFA=FORI=10THEN100 

gepackt . Ui rd die Zei le 10 nach dem Packen edi t lert und 
dadurch neu in den Zuischencode Liber setzt , dann uird das 
Keyword FOR erkannt und eine Ausf uhrung der Zei le ergabe einen 
Syntax— Error . 

Uor und nach dem Packen uird der Speicherbedarf des 
Programmes ausgegeben , urn ei ne AbschMtzung des eingesparten 
Speicherpl atzes zu erm5gl ichen . 



t •** % 4. -4H* . 
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00100 ; 






00110 ; 






00120 ; 






00130 ; 






00140 ; 






00150 ; 






00160 ; 






00170 ; 






00180 ; 






00190 






00200 ; 






00210 ; 






00220 ; 






00230 ; 


4155 




00240 


4155 


C35FB7 


00250 
00260 ; 


415B 




00270 


415B 


C3A8B6 


00280 
00290 ; 


417F 




00300 


417F 


C35ABC 


00310 
00320 


418B 




00330 


418B 


C350B8 


00340 

00350 


419A 




00360 


419A 


C37DB8 


00370 


419D 


C333B9 


00380 
00390 


41A3 




00400 


41 A3 


C309B9 


00410 
00420 


418E 




00430 


418E 


C3D8B9 


00440 
00450 


4197 




00460 


4197 


C3E7B9 


00470 
00480 


4191 




00490 


4191 


C3DABD 


00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 


B67C 




00590 
00600 


B67C 


2A0440 


00610 


B67F 


22B6B9 


00620 


B682 


21A5B9 


00630 


B685 


220440 


00640 
00650 


B688 


jlLj 


00660 
00670 


B68A 


32A941 


00680 


B68D 


210DB7 


00690 



fc************ *********************** ********* 
***** COLBAS VERSION 1.0 ***** 

***** 21.10.83 ***** 

********************************************* 



;ASEG 
***** INITIALISIERUNG DER BASIC ZEI6ER BURCH DIREKTES uBERSCHREIBEN 



0R6 


4155H 


JP 


FN 


ORG 


415BH 


JP 


DEF 


ORG 


417FH 


JP 


GET 


ORG 


418BH 


JP 


MERGE 


ORG 


419AH 


JP 


RSET 


JP 


INSTR 


ORG 


41A3H 


JP 


LINE 


ORG 


418EH 


JP 


FLIST 


ORG 


4197H 


JP 


FLLIST 


ORG 


KILLV 


JP 


KILL 



;MITTELS "NAME" LIST AUF BILDSCHIRM 



jMITTELS "LSET" LIST AUF DRUCKER 



"+ ' -f, T T L ■ '. I I « . - v V ■ 



***** INITIALISIEREN MR BASIC2EI6ER PER PROGRAMM 



ORG 



0B67CH 



INIT 



LD HL, (RST10V) 

LD (CHV10+1),HL 

LD HL,RESTN 

LD (RST10V),HL ; RST 10H-VEKTDR AENDERN 



LD 

LD 
LD 



A,0C3H 

<4iA9H),A 
HL,USR 



: OPCODE FUER JP NACH A 



2.2. 


2 Basiceruei t 


erung 


COLBA.S 
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Bi*" 


22 A AM 


00 '0'*' 
00710 i 




LP 


'41AAH),HL 


B&93 


32AC41 


'"'0720 
00 7 7'*' i 
00740 j 
00750 ■ 
00760 ; 




LB 


'41ACH) ,A 


B6"6 


7126B8 


00770 




LD 


HL, READY 


Bfa99 


22AD41 


00790 
00790 ' 




LD 


(4iADH),HL 


Bfc9C 


320941 


'"'0300 




LP 


(41D e? HJ ,A 


Bd>9F 


2193B3 


008 i 




LD 


HL,MP 


B6A2 


22DA41 


008 20 
00830 i 




LD 


(4ir.AH> ,HL 


B6A5 


C3191A 


0084*:* 
00950 


» 


JP 


1A19H 


■*r J ^ 




00860 ■ 
003~7'~> ■ 
00B80 ; 
00890 
00900 
009 1 
00920 




;C5ES 


* " * n t * i. * * * i * * 






ijCtQ 3<_i 


***** 


PFOGPAHH! 


oRFEP 






0094'"* 




w 








O0 q 50 












00960 








013B 




00970 i 

00980 

0'.'990 


5NERR 


EOU 


013BH ;ANSPRUHGADP. FUEP 






01000 


; ***** 


DEFFN UMD DEFUSR BEFEHLE 






oioio 








B6A8 


FECI 


01020 1 


3EF 


CP 


0C1H 


B6AA 


282C 


01070 




JR 


Z,DEFU5R 






01040 


* 




- 


B6AC 


CDCCB6 


01050 1 


jEFFN 


CALL 


DEFFN 1 


P6AF 


CD2828 


01060 




CALL 


2828H 


B6B2 


EB 


01070 




EX 


DE,HL 


R6B3 


73 


01080 




LD 


' HL » , E 


B6B4 


"}^ 


01090 




INC 


ML 


B6B5 


72 


01100 




LD 


<HL^,D 


B6B6 


EB 


oino 




EX 


DE,HL 


B6B7 


7E 


01120 




LD 


A, 'HL' 


S6B3 


FE28 


01130 




CP 


28H 


36BA 


C2051F 


01140 




JP 


MZ.1F05H 


B6BB 


D7 


01150 




RST 


16 


B6BE 


CD0D26 


01160 ] 


DEFFN2 


CALL 


260DH 


B6C1 


7E 


01170 




LD 


A, 'HL) 


B6C2 


FE29 


01 ISO 




CP 


29H 


B6C4 


CA051F 


01190 




JF 


Z,iF05H 


B6C 7 


CF 


01200 




RST 


8 


B6C3 


2C 


01210 




DEFB 


4 


B6C9 


C3PEB6 


01220 




JP 


DEFFN2 


B6CC 


CF 


01230 


DEFFN 1 


PST 


8 


B6CD 


BE 


01240 




DEFB 


OBEH ;FN TOKEN 


B6CE 


3E80 


01250 




LD 


A,80H 


B6D0 


72DC40 


01260 




LD 


(40DCH),A 


B6D3 


B6 


01270 




OR 


(HL) 


RfaD4 


47 


01280 




LD 


B,A 


B6D5 


C31226 


01290 




JP 


2612H 
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B6B8 

B6DB 

B6DC 

B6DD 

B6DE 

B6E1 

B6E2 

B6E3 

B6E4 

B6E5 

B6E6 

B6E7 

B6E8 

B6EB 

B6ED 

B6EF 

B6F0 

B6F1 

B6F2 

B6F3 

B6F6 

B6F7 

B6F8 

B6F9 
B6FB 
B6FD 
B6FF 
B701 
B703 
B705 
B707 
B709 
B70B 



CDE7B6 

D5 

CF 

D5 

CD022B 



E3 

73 

23 

72 

El 

C9 

D7 

010000 

3005 

D630 

17 

4F 

D7 

EB 

21F9B6 

09 

EB 

C9 

4A1E 
A41E 
A41E 
A41E 
A41E 
A41E 
A41E 
A41E 
A41E 
A41E 



B70D 
B70E 
B711 
B712 
B71S 
B716 
B717 
B718 
B719 
B71C 
B71D 
B71E 
B721 
B722 
B724 
B727 
B728 
B729 
B72C 



Fl 

CDE7B6 

D5 

CD2C25 

E3 

4E 

23 

46 

21E726 

E5 

C5 

3AAF40 

F5 

FE03 

CCDA29 

Fl 

EB 

212141 

C9 



01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 



DEFUSR 



DEFUS1 



DEFUS2 



STORE 



CALL 

PUSH 

RST 

DEFB 

CALL 

EX 

LB 

INC 

LB 

POP 

RET 

RST 

LB 

JR 

SUB 

RLA 

LD 

RST 

EX 

LD 

ADD 

EX 

RET 

DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 



DEFUS1 

DE 

8 

0D5H 

2B02H 

(SP),HL 

(HL),E 

HL 

(HL),D 

HL 

16 

BC,0 

NC,DEFUS2 
30H 

C,A 

16 

DE,HL 

HL, STORE 

HL,BC 

DE,HL 



1E4AH 
1EA4H 
1EA4H 
1EA4H 
1EA4H 
1EA4H 
1EA4H 
1EA4H 
1EA4H 
1EA4H 



;'=' TOKEN 



;FC ERROR ALS DEFAULTADR. 



***** USR FUNKTION 



USR 



POP 


AF 


CALL 


DEFUS1 


PUSH 


DE 


CALL 


252CH 


EX 


(SP),HL 


LD 


C, <HL) 


INC 


HL 


LD 


B, (HL) 


LD 


HL,26E7H 


PUSH 


HL 


PUSH 


BC 


LD 


A, <40AFH) 


PUSH 


AF 


CP 


3 


CALL 


Z,29DAH 


POP 


AF 


EX 


DE,HL 


LD 


HL,4121H 


RET 
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01900 ;***** 


FN FUNKTION 






01910 ; 






B72D 


1E2E 


01920 AS2 


LD 


E,2EH 


B72F 


C3A219 


01930 


JP 


19A2H 


B732 


3AAF40 


01940 ASS 


LD 


A, C40AFH) 


B735 


3D 


01950 


DEC 


A 


B736 


3D 


01960 


DEC 


A 


B737 


3D 


01970 


DEC 


A 


B738 


B7 


01980 


OR 


A 


B739 


Z7 


01990 


SCF 




B73A 


CA93B7 


02000 


JP 


Z,AS6 


B73D 


4E 


02010 


LD 


C, (HL) 


B73E 


23 


02020 


INC 


HL 


B73F 


46 


02030 


LD 


B, (HL) 


B740 


C5 


02040 


PUSH 


BC 


B741 


FA5CB7 


02050 


JP 


M,AS7 


B744 


*?"* 


02060 


INC 


HL 


B745 


4E 


* 02070 


LD 


C, (HL) 


B746 


23 


020B0 


IMC 


HL 


B747 


46 


02090 


LD 


B, (HL) 


B748 


C5 


02100 


PUSH 


BC 


B749 


E25CB7 


02110 


JP 


P0,AS7 


B74C 


23 


02120 


INC 


HL 


B74D 


DA5367 


02130 


JP 


C,ASB 


B750 


211D41 


02140 


LD 


HL,411DH 


B7S3 


4E 


02150 ASS 


LD 


C, (HL) 


B754 


23 


02160 


INC 


HL 


B755 


46 


02170 


LD 


B, (HL) 


B756 


23 


02180 


INC 


HL 


B757 


C5 


02190 


PUSH 


BC 


B758 


4E 


02200 


LD 


C, (HL) 


B759 


it 


02210 


INC 


HL 


B75A 


46 


02220 


LD 


B, (HL) 


B75B 


C5 


02230 


PUSH 


BC 


B75C 


DA9DB7 


02240 AS7 


JP 


C,AS9 


B75F 


CDCCB6 


02250 FN 


CALL 


DEFFM1 


B762 


3AAF40 


02260 


LD 


A, (40AFH) 


B765 


B7 


02270 


OR 


A 


B766 


F5 


02280 


PUSH 


AF 


B767 


22F340 


02290 


LD 


(40F3H),HL 


B76A 


EB 


02300 


EX 


DE,HL 


B76B 


7E 


02310 


LD 


A, (HL) 


B76C 


23 


02320 


INC 


HL 


B76D 


66 


02330 


LD 


H, (HL) 


B76E 


6F 


02340 


LD 


L,A 


B76F 


B4 


02350 


OR 


H 


B770 


CA2DB7 


02360 


JP 


Z,AS2 


B773 


7E 


02370 


LD 


A, (HL) 


B774 


FE29 


02380 


CP 


28H 


B776 


C2C6B7 


02390 


JP 


NZ,AS3+1 


B779 


D7 


02400 


RST 


16 


B77A 


22D840 


02410 


LD 


(40D8H),HL 


B77D 


1802 


02420 


JR 


AS4 


B77F 


CF 


02430 AS 10 


RST 


8 


B780 


2C 


02440 


INC 


L 


B781 


0E04 


02450 AS4 


LD 


C,04 


B783 


CD6319 


02460 


CALL 


1963H 


B786 


3E80 


02470 


LD 


A,80H 


B788 


32DC40 


02480 


LD 


(40DCH),A 


B78B 


CD0D26 


02490 


CALL 


260DH 



■ CV\r*-r " /• 



2.2.2 Basiceruei terung COLBAS - Quel lprogramm 



Seite 95 



B78E EB 


02500 




EX 


DE,HL 


B76F 37 


02510 




SCF 




B790 C332B7 


02520 


ash 


JP 


ASS 


B793 D22324 


02530 


AS6 


JP 


MC2423H 


B796 D5 


02540 




PUSH 


DE 


67*7 EB 


02550 




EX 


DE,HL 


B798 CD8829 


02560 




CALL 


2888H 


B7ob Dl 


02570 




POP 


DE 


B79C AF 


02580 




XOR 


A 


B79D E5 


02590 


AS* 


PUSH 


HL 


B79E F5 


02600 




PUSH 


AF 


B79F EB 


02610 




EX 


DE,HL 


B7A0 7E 


02620 




LD 


A, (HLJ 


B7A1 FE29 


02630 




CP 


29H 


B7A3 20DA 


02640 




JR 


NZ,AS10 


B7A5 2AF340 


02650 




LD 


HL, (40F3H) 


B7AS CF 


02660 




RST 


8 


E7A9 28E5 


02670 




JR 


Z,AS11 


B7AB 2AB840 


02680 




LD 


Hl, '.40D8H) 


B7AE CD0D26 


0269ft 


AS13 


CALL 


260DH 


B7B1 E3 


02700 




EX 


(SP^HL 


B7B2 CD2B1F 


02710 




CALL 


1F2BH 


B7B5 7E 


02720 




LD 


A, IHL; 


B7B6 FE29 


02730 




CP 


2*H 


B7B8 2807 


02740 




JR 


Z,AS12 


B7BA CF 


02750 




RST 


8 


B^BB 2C 


02760 




INC 


L 


B7BC E3 


02770 




EX 


(SP:,HL 


B7BD CF 


02780 




RST 


8 


B7BE 2C 


027*0 




INC 


L 


B7BF 18ED 


02800 




JP 


AS13 


E^Cl D7 


02810 


AS12 


RST 


16 


B7C2 E3 


02820 




EX 


(SPJ ,hl 


B7C3 CF 


02830 




RST 


8 


B7C4 29 


02840 




ADD 


HL,HL 


B7C5 3ED5 


02850 


AS 3 


LD 


A,0D5H 


B7C7 CF 


02860 




RST 


8 


B7CS D5 


02870 




PUSH 


DE 


B7C9 CD3723 


02880 




CALL 


2337H 


B7CC 2B 


028*0 




DEC 


HL 


B'CD D7 


02900 




RST 


16 


B7CE C29^19 


02910 




JP 


NZ, J9*7H 


B^Dl E7 


02920 




RST 


32 


P7D2 282F 


02930 




JR 


Z,AT1 


B7D4 Dl 


02940 


AT6 


POP 


DE 


P^DS Fl 


02950 


AT4 


POP 


AF 


B7D6 283F 


02960 




JR 


Z,AT2 


B7D8 30 1C 


02*70 




JR 


NCAT3 


B7DA El 


02*80 




POP 


HL 


P^DB CI 


02990 




POP 


BC 


B7DC 70 


03000 




LD 


(HL) ,B 


B7BB 2B 


03010 




DEC 


HL 


B7DE 71 


03020 




LD 


<HL),C 


B^Df FAD5B^ 


03030 




JP 


M,AT4 


B"*E2 2B 


03040 




DEC 


HL 


B7E3 CI 


03050 




POP 


BC 


B7E4 70 


03060 




LD 


<HD ,b 


B7E5 2B 


03070 




DEC 


HL 


B7E6 71 


03080 




LD 


(HL> ,C 


B7E7 E2D5B7 


030*0 




JP 


PO, AT4 
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B^EA 2B 


03100 




DEC 


HL 


B7EB CI 


03110 




POP 


BC 


B^EC 70 


03120 




LB 


(HL),B 


B7ED 2H 


03130 




DEC 


HL 


B?EE 7i 


03140 




LD 


<HD,C 


B7EF 2B 


03 150 




DEC 


HL 


B7F0 CI 


03160 




POP 


BC 


B7F1 70 


03170 




LD 


<HL>«P 


B^F2 2B 


03180 




DEC 


HL 


B7F3 71 


03190 




LD 


'HL) ,C 


B7F4 18DF 


03200 




JR 


AT4 


B7F6 D5 


03210 AT3 


PUSH 


DE 


B7F7 F5 


03220 




PUSH 


AF 


B7F8 E""' 


03230 




P5T 


3° 


B7F9 11D340 


03240 




LD 


DE,40D3H 


B^FC CC8828 


03250 




CALL 


Z , 2888H 


B7FF Fl 


03260 




POP 


AF 


B900 C31A2B 


03270 




JP 


281 AH 


B803 2AB340 


03280 ATI 


LD 


HL, (40B3HJ 


BS06 EP 


03290 




EX 


DE,HL 


B807 2A2141 


03300 




LD 


HL, (4121H> 


BSOA DF 


03310 




RST 


24 


BSOB 3305 


03320 




JR 


CATS 


B80D CD4328 


03330 




CALL 


2843H 


B810 18C2 


03340 




JR 


AT6 


B812 Dl 


03350 ATS 


POP 


DE 


B813 21D340 


03360 




LD 


HL,40D3H 


B816 E5 


03370 




PUSH 


HL 


B817 CDF529 


03380 AT2 


CALL 


29F5H 


B81A 7E 


03390 




LD 


a, -:hl> 


B81B 22B340 


03400 




LD 


*.40B3H>,HL 


B81E El 


03410 




POP 


HL 


B81F 77 


03420 




LD 


(HLJ,A 


B820 23 


03430 




INC 


HL 


B821 71 


03440 




LD 


<HL),C 


B822 23 


03450 


i 


INC 


HL 


B823 70 


03460 




LD 


'HL) ,B 


B824 18AF 


03470 
03430 ; 
03490 ; 




JR 


AT4 




03500 ; 
03510 . 

03520 F 


***** 


NEUE PEAP/-MELBUNG 


B826 CDF920 


*EADY 


CALL 


20F9H 


682^ 2133B8 


03570 




LD 


HL,GI1 


BS2C CP*238 


03540 




CALL 


3SP2H 


B82F El 


03550 




POP 


HL 


B830 C32B1A 


035 60 




JP 


1A2BH 


B833 43 


03570 ( 


311 


DEFM 


'COLBAS READY 1 


B83F 00 


03580 




DEFB 


ODH 


S840 00 


03590 f 


512 


DEFB 





B841 20 


03600 




DEFM 


* MERGE MODE * 


B84E OD 


03610 




DEFB 


ODH 


B84F 00 


03620 
03630 
03640 




DEFB 







03650 


;***** 


MERGE 


BEFEHL 




03660 








B850 3A40B8 


07670 


*<ERGE 


LD 


A, <GI2) 


B853 B7 


03680 




OR 


A 


B854 2006 


03690 




JR 


NZ.ME1 



I'ci-J « 



trt-1" > 



) *(* 
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B856 


2AA440 


03 7 00 




LB 


HL, <40A4H> 


B859 


22°1B8 


037 10 




LD 


<BASBEG>,HL 


B85C 


EB5BF*40 


03720 ME1 


LD 


DE, '40F9H' 


B860 


IB 


03730 




DEC 


DE 


B861 


D5 


03740 




PUSH 


DE 


B862 


CI 


03750 




POP 


BC 


P863 


1P 


03760 




DEC 


DE 


B864 


IB 


037" 7 




DEC 


DE 


B865 


IB 


03780 




DEC 


DE 


BS66 


1A 


f, 3790 




LD 


A, 'DE) 


B667 


B 7 


03800 




OR 


A 


B868 


2005 


03810 




JR 


NZ,ME2 


B86A 


ED43F*40 


03820 




LD 


<40F*H),BC 


B86E 


IB 


03830 




DEC 


DE 


PS6F- 


13 


03840 NE2 


INC 


DE 


B870 


13 


03850 




INC 


DE 


B871 


FD53A440 


03860 




LD 


<40A4H>,DE 


B8^5 


3E2A 


03870 




LD 


A, 42 


B877 


3240B8 


03880 




LD 


<GI2) , A 


BS^A 


C316PD 


038 Q 
03°00 * 
03910 ; 




JP 


RETURN 






03920 ■ 


***** 


R5ET BEFEHL 






03930 








B87P 


3A4< <P8 


03° 40 F 


(SET 


LD 


A, (GI2> 


B880 


B^ 


03°50 




OP 


A 


B8S1 


280P 


03 Q 60 




JR 


2, RSI 


B833 


2A91B8 


03970 




LD 


HL, iBASBEG* 


8886 


22A440 


03 "80 




LD 


<40A4H',HL 


B889 


3E00 


039^0 




LD 


A,0 


BS8B 


7240BP 


ij400m 




LD 


(GI2),A 


B8SE 


C316&D 


04010 F 


*S1 


JP 


RETURN 


0002 




04030 1 

1J4A41J 

Ti4f"'50 
04060 
04070 
04080 


3A5BEG 


DEFS 


r»» 






040°0 


***** 


MID* ALS 


STATEMENT 






04100 








E6*3 


D7 


04110 f 


11 D 


PST 


I OH 


B8 C 4 


CF 


04120 




R3T 


OSH 


BS95 


2e 


04130 




DEFM 


» i ' 


B3°6 


CD 03B 


04140 




CALL 


MID6 


B89* 


E5 


04150 




PUSH 


HL 


BS^A 


D5 


04160 




PUSH 


DE 


ES9p 


EB 


041^0 




EX 


DE,ML 


B89C 


*~r ^ 


04 1 80 




INC 


HL 


B89D 


5E 


041 *?0 




LD 


E, -HL' 


ES^E 


-i-» 


04200 




INC 


HL 


B8 a F 


56 


04210 




LD 


D, <HL) 


B8A0 


2AA040 


04220 




LD 


HL, '40mOH' 


B8A3 


BF 


04230 




RST 


1SH 


PSA4 


El 


fi4240 




POP 


HL 


B8A5 


E5 


04250 




PUSH 


HL 


BSA6 


D4FPB8 


04260 




CALL 


NCMID5 


P8A9 


EJ 


04270 




POP 


HL 


BSAA 


E7 


04280 




E> 


(5P',HL 


P8AB 


CF 


04290 




RST 


OBH 
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B8AC 


jl, \mf 


04300 


INC 


L 


BBAD 


CD1C2B 


04310 


CALL 


2B1CH 


B8B0 


B7 


04320 


OR 


A 


BSB1 


CA4A1E 


04330 


JP 


Z, 1E4AH 


B8B4 


F5 


04340 


PUSH 


AF 


B8B5 


7E 


04350 


LD 


A, (HL) 


B8B6 


FE2C 


04360 


CP 


2CH 


B8B8 


3EFF 


04370 


LD 


A, OFFH 


B8BA 


2004 


04380 


JR 


NZ,MID1 


B8BC 


D7 


04390 


RST 


10H 


B8BD 


CB1C2B 


04400 


CALL 


2B1CH 


B8C0 


F5 


04410 MIDI 


PUSH 


AF 


B8C1 


CF 


04420 


RST 


08H 


B8C2 


2? 


04430 


DEFM 


' )" 


BSC3 


CF 


04440 


RST 


03H 


B8C4 


D5 


04450 


DEFB 


0D5H 


B3C5 


CD3723 


04460 


CALL 


2337H 


B8C8 


E5 


04470 


PUSH 


HL 


B8C9 


CDD729 


04480 


CALL 


29D7H 


B8CC 


01 


04490 


POP 


DE 


B8CD 


CI 


04500 


POP 


BC 


B8CE 


Fl 


04510 


POP 


AF 


B3CF 


4F 


04520 


LD 


C,A 


BSDO 


EB 


04530 


EX 


DE,HL 


B8D1 


E3 


04540 


EX 


( SP ) , HL 


BBD2 


D5 


04550 


PUSH 


DE 


B8D3 


7E 


04560 


LD 


A, (HL) 


B8D4 


2^ 


04570 


INC 


HL 


B8D5 


5E 


04580 


LD 


E, (HL) 


B8D6 


23 


04590 


INC 


HL 


B8D7 


56 


04600 


LD 


D, (HL) 


B8D8 


69 


04610 


LD 


L,C 


BSD? 


2600 


04620 


LD 


H,0 


B8DB 


19 


04630 


ADD 


HL,DE 


B8DC 


2B 


04640 


DEC 


HL 


BSDD 


91 


04650 


SUB 


c 


B3DE 


DA4A1E 


04660 


JP 


C, 1E4AH 


B8E1 


3C 


04670 


INC 


A 


B3E2 


B8 


04680 


CP 


B 


B8E3 


3001 


04690 


JR 


NC,MID2 


B8E5 


47 


04700 


LD 


B,A 


BSE6 


E3 


04710 MID2 


EX 


<:sp>,hl 


B8E7 


7E 


04720 


LD 


A, (HL) 


B8E8 


07 


04730 


INC 


HL 


B8E9 


5E 


04740 


LD 


E, (HL) 


B8EA 


*?3 


04750 


INC 


HL 


B8EB 


56 


04760 


LD 


D, (HL) 


B8EC 


El 


04770 


POP 


HL 


B8ED 


B8 


047S0 


CP 


B 


BBEE 


3801 


04790 


JR 


C.MID3 


B8F0 


78 


04800 


LD 


A,B 


B8F1 


CDF6B8 


04810 MID3 


CALL 


MID4 


BSF4 


El 


04820 


POP 


HL 


BSF5 


C9 


04830 
04840 ; 


RET 








04850 ; UMTERPROSRAMME 








04860 ; 






BBF6 


B7 


04870 MID4 


OR 


A 


B8F7 


C2D609 


04880 


JP 


NZ,09D6H 


BBFA 


C9 


04890 


RET 
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BSFB 


E5 


04900 M IDS PUSH 


HL 


B8FC 


CD432S 


04910 


CALL 


2843H 


B8FF 


El 


04° 20 


POP 


HL 


B900 


C3D30* 


04930 


JP 


09D3H 


B903 


CD0D26 


04940 MID6 CALL 


2&0DH 


B Q 06 


C3F40A 


04950 
04960 ; 
04970 ; 
04980 ; 


JP 


0AF4H 






04990 ; 


***** LINE INPUT BEFEHL 






05000 ; 






B90 Q 


CF 


05010 LINE RST 


06H 


B°OA 


89 


05020 


DEFB 


89H 


B G 0B 


CD2828 


05030 


CALL 


2S28H 


B90E 


7E 


05040 


LD 


A, <HL> 


B90F 


FE23 


05050 


CP 


'tr 


B911 


CA3B01 


05060 


JP 


7,SNEFR 


B Q 14 


CDCD21 


05070 


CALL 


21CDH 


B917 


CD0D26 


0508'"* 


CALL 


260DH 


B91A 


CDF40A 


05090 


CALL 


0AF4H 


B91D 


E5 


05100 


PUSH 


HL 


B91E 


D5 


05110 


PUSH 


DE 


B91F 


CD6103 


05120 


CALL 


036 1H 


B922 


380A 


05130 


JP 


CLINE1 


B924 


0600 


05140 


LD 


B,0 


B926 


CD6828 


05 1 50 


CALL 


2S6SH 


B929 


El 


05160 


POP 


HL 


B92A 


AF 


05170 


XOP 


A 


B92B 


C3331F 


05180 


JP 


1F33H 


B92E 


Fl 


05190 i 


_INE1 POP 


AF 


B92F 


Fl 


05200 


POP 


AF 


B930 


C3BE1D 


05210 
05220 
05230 

05240 


JP 


1DBEH 






05250 


;***** INSTR 


BEFEHL 






05260 






B933 


D" 


05270 


IN5TR RST 


10H 


B934 


C 03523 


05280 


CALL 


2335H 


B°37 


E" 7 


05290 


RST 


20H 


B938 


3E01 


05300 


LD 


A,01H 


B93A 


C41F2B 


05310 


CALL 


H2,2B1FH 


B93D 


B7 


053/O 


OR 


A 


B93E 


CA4A1E 


05330 


JP 


Z, 1E4AH 


B941 


F5 


05340 


PUSH 


AF 


B"42 


E7 


0535'"* 


RST 


20H 


B<?43 


C4A0B* 


05360 


CALL 


N2,INSTR8 


B Q 4fc 


CDF40A 


053" 7 


CALL 


0AF4H 


B949 


ED4B2141 


053B0 


LD 


BC, '4J21HJ 


B°4D 


C5 


05390 


PUSH 


PC 


B94E 


CDA0B9 


05400 


CALL 


INSTFS 


B951 


CF 


05410 


RST 


03H 


B952 


29 


05420 


DEFH 


* ) ' 


BQ53 


E3 


05430 


EX 


(SP> ,HL 


B954 


E5 


05440 


PUSH 


HL 


B*55 


CDD~29 


05450 


CALL 


2°D" 7 H 


B95B 


E3 


05460 


EX 


(5PJ ,HL 


B Q 59 


CDDB29 


05470 


CALL 


2*DQH 


B95C 


01 


05480 


POP 


DE 


B"5D 


Cl 


05490 


POP 


BC 
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B95E 


Fl 


05500 




POP 


AF 


B95F 


C5 


05510 




PUSH 


BC 


B960 


F5 


05520 




PUSH 


AF 


B961 


D5 


05530 




PUSH 


DE 


B962 


3D 


05540 




DEC 


A 


B963 


46 


05550 




LD 


B, <HL) 


B964 


23 


05560 




INC 


HL 


B965 


5E 


05570 




LD 


E, (HL) 


B966 


23 


05580 




INC 


HL 


B967 


56 


05590 




U> 


D. <HL) 


B968 


6F 


05600 




LD 


L,A 


B969 


2600 


05610 




LD 


H,0 


B96B 


19 


05620 




ADD 


HL,DE 


B96C 


E3 


05630 




EX 


(SP),HL 


B96D 


4E 


05640 




LD 


C, (HL) 


B96E 


23 


05650 




INC 


HL 


B96F 


5E 


05660 




LD 


E, (HL) 


B970 


23 


05670 


' 


INC 


HL 


B971 


56 


05680 




LD 


D, (HL) 


B972 


El 


05690 




POP 


HL 


B973 


81 


05700 




ADD 


A,C 


B974 


381D 


05710 




JR 


C,INSTR4 


B976 


ED44 


05720 


INSTR1 


NEG 




B978 


80 


05730 




ADD 


A,B 


B979 


47 


05740 




LD 


B,A 


B97A 


3017 


05750 




JR 


NC,INSTR4 


B97C 


04 


05760 




INC 


B 


B97D 


E5 


05770 


INSTR2 


PUSH 


HL 


B97E 


D5 


05780 




PUSH 


DE 


B97F 


C5 


05790 




PUSH 


BC 


B980 


OC 


05800 




INC 


C 


B981 


0D 


05810 


INSTR3 


DEC 


c 


B982 


2813 


05820 




JR 


Z,INSTR5 


B984 


1A 


05830 




LD 


A, (DE) 


B985 


BE 


05840 




CP 


(HL) 


B986 


13 


05850 




. INC 


DE 


B987 


23 


05860 




INC 


HL 


B988 


28F7 


05870 




JR 


Z, INSTR3 


B98A 


CI 


05880 




POP 


BC 


B98B 


Di 


05890 




POP 


DE 


B98C 


El 


05900 




POP 


HL 


B98D 


Fl 


05910 




POP 


AF 


B98E 


3C 


05920 




INC 


A 


B98F 


23 


05930 




INC 


HL 


B990 


F5 


05940 




PUSH 


AF 


B991 


10EA 


05950 




DJNZ 


INSTR2 


B993 


Fl 


05960 


INSTR4 


POP 


AF 


B994 


AF 


05970 




XOR 


A 


B995 


1804 


05980 




JR 


IN3TR6 


B997 


CI 


05990 


INSTR5 


POP 


BC 


B998 


Dl 


06000 




FOP 


DE 


B999 


El 


06010 




POP 


HL 


B99A 


Fl 


06020 




POP 


AF 


B99B 


CDF827 


06030 


INSTR6 


CALL 


27F8H 


B99E 


El 


06040 


INSTR7 


POP 


HL 


B99F 


C9 


06050 




RET 




B9A0 


CF 


06060 


INSTR8 


RST 


08H 


B9A1 


2C 


06070 




DEFM 




B9A2 


w O <*/ / ^. O 


06080 
06090 


4 
4 


JP 


2337H 



*■•* T *■* Tfrt 



'■.*.«U.1V 



iMf-^i'-'rt 
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JP7S 

2B01 
1B2C 

06CC 

idie 



40FF 
4004 



B9A5 
B*Ao 
B9A7 
B*A9 
B9AB 
B9AD 
B9AF 
B9B0 
B9B2 
B9B4 
B9B5 
B9B8 
B*B* 
B9BB 
B9BC 
B9BD 
B*BE 
B9C0 
B*C2 
B9C3 
E*C4 
B9C7 
P*CA 
B9CB 
B*CE 
B9CF 
B9D3 
B9B4 
E9D5 



E3 

7C 

FE1D 

2310 

FE20 

2005 

7D 

FE50 

2S0" 7 

E3 

C30000 

El 

13FA 

E3 

E5 

D"> 

FE90 

20F6 

CI 

D7 

CA911D 

CB022B 

E5 

CD2C1B 

OB 

E043FF40 

El 

CI 

C31E10 



J BIO 

20FE 
032A 
1A'9 



06100 

06 iv: 

0612 

0613*: 

0ol40 

06150 

06 1 60 

06170 

06180 

06190 

06200 

06210 

06220 

06230 

06240 

06250 

06260 

06270 

06280 

062*0 

06300 

06310 

06320 

06330 

06340 

06 350 

06360 

063" 7 

063S0 

06390 

& 400 

06410 

06420 

06430 

06440 

06450 

06460 

06470 

0&480 

064*0 

06500 

"6510 

06520 

0657O 

06540 
06550 
06560 
06570 
06580 
06590 
06600 
0661 
06620 
06630 
06640 
06650 
06660 
06670 
06680 
066*0 



CHRGE1 

INTEXP 

SLINE 

WSTART 

EXEC 



BATAZ 

RSTIOO 



RE5TN 



NINT 

CHV10 

NINT1 

RESTN1 



* ****. 
***** 
***** 



** RESTORE N **, 18.2.80 'V 1.1> 
BEARBEITET FUER EDTA5M, 4.°. 81 



BASIC-UNTERPRQGRAMME: 



EQU 
EQU 
EQU 
EQU 
EQU 



1D78H 
2B01H 
1B2CH 
06CCH 

1D1EH 



; BASIC-ZEI5ER: 
EQU 40FFH 
EQU 4004H 



; 



RESTORE N 



EX 
LD 
CP 
OR 
CP 
JR 
LD 
CP 
JR 
Ex 
JP 
POP 



<SP*,HL 
A,H 
1DH 

Z,PESTN1 
20H 

NZ,NINT 
A,L 
50H 

Z,RE5TN1 
(SP) ,HL 

HL 



JR CHV10 
EX (SP>,HL 
PUSH HL 
RST 10H 
CP 90H 
JR NZ,NINT1 
POP BC 
RST 10H 
JP Z, 1D91H 
CALL INTE>P+1 
PUSH HL 
CALL SLINE 
DEC BC 

LD 'BATAZ), BC 
POP HL 
POP EC 
JP EXEC 
FORMATIERTES L 
VERSION 1.0 
f C) 1933 BV 



ZEICHENHOLROUTINE 
ZEILENHUMMER ERMITTELN 
ZEILE IN RAM SUCHEN 
ZURUEO IUM BASIC 
BASICPROGRAMM AUSFUEHREN 



;DATAZEIGER 
;RST lOH-VEl-'TQR 



;AUFRUF VON 1DXXH? 



sNEIN, RST 10H AUSF, 



; ^RESTORE'"' 

;NEIN, RST lOH'OHNE INC HL» 



;ZNP DECODIEPEN 
;POINTFR RETTEN 
;ZEILENADRESSE 

NACH DATAZEIGEF 
POINTER ZURUECK 
RUED SPRUNG ADR. 
NAECHSTE ; ZEILENAD*E55E 
I STING FuR COLOUR-GENIE ***** 
04. 11.33 ***** 

H. BuNING ***** 



***** ROM-ADRESSEN 



LAPG 

CR 

OUTCHF 

hAUPTS 



EQU 

EQU 
EQU 
EQU 



1B10H 

2<\ FEH 
032AH 
1A1SH 



LIST ARGUMENTS AUSWERTEH 
GIBT CR AU5 
GIFT ZEICHEN IN A AUS 
BASIC HAUPT5CHLEIFE 
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OFAF 

1D9B 
39AD 



40A7 

409C 
40A6 

4<">9B 
40A2 
4 DEC 



008F 
OOFB 
0000 
008 1 
OOFF 



B g DS 
B9DC 

B«E0 
B9E4 



B9E" 7 
B9EB 
B*EF 
B<?F3 
B9F5 



DD214FBC 
DD360327 
DD3t>0603 

C3FBB9 



DB214FBC 

DB36034F 
DD36060A 
3E01 
329C40 



B9F8 
B9F9 
B9FC 
B9FD 
BAOO 
BA03 
BA04 
BA05 
BA06 
BA07 
BAOB 



CI 

CD101B 
C5 
21FFFF 

22A240 
El 
Dl 
4E 

46 



23 



06700 

06710 

06720 

06^30 

06740 

06750 

06760 

06770 

06780 

06790 

06800 

06810 

06820 

06830 

06840 

0fc850 

06860 

068 v 

06880 

06890 

06*? 00 

06910 

06920 

06930 

06940 

06 Q 50 

06960 

06970 

06980 

06^90 

07000 

07010 

07020 

07030 

07040 

07050 

07060 

07070 

07080 

07090 

07 1 00 

07110 

07120 

07130 

07140 

07150 

07160 

07170 

07180 

07190 

07200 

07210 

07220 

07230 

07240 

07250 

07260 

07270 

07280 

07290 



PRZNR EQU OFAFH ; ZEILENNUHMER IN HL AUSGEBEN 
BREAI- EQU 1D*BH ; TASTENDRuD E AUSWERTEN 
TABAHF EQU 39ADH ; t EYWQRDTABELLENANFANG NACH HL 



***** SVSTEM-RAM-ADRESSEN 



BUFAMF 
PVFLAG 
VPOS 
PROS 

At T7NR 
REF2MR 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 



40A7H 
409CH 
40A6H 
409BH 

40A2H 
40ECH 



ENTHAELT DEN ZETGER AUF DEN BUFFER ANF. 
FLAG <0=BILDSCHIRM, 1=DRUD ER) 
BILDSCHIRM-SPALTEN-P05ITI0N 
DRUQ ER-SFALTEN-POSITION 
5PEICHERZELLEN FuR AFTUELLE ZMR 
SPEICHERZELLEN FuR '.' BEZUG 



***** EENUTZTE TOf EN 

TF EQU OBFHj IF-TOt-EN 

RFMAP EOU OFBHjAPOSTPOPH REMARK 

ZENDE EQU OH; ZEILENENDE 

FCOLOU EQU 081H;FC0L0UR 

DOPTO* EDU 0FFH;ER5TE5 BYTE EINE5 DOPPELTOFEN 



***** START DER FLIST-ROUTINE 

FLIST 



LD 
LD 
LD 

JP 



IX,VARADR j IX ZEIGT AUF DEN VAPIABLENBEREICH 
iIX+3>,39 ;LETZTE SPALTE AUF BILBSCHIRM 
'K+6J ,3;MAXIMALE EINRuDUMG AUF BILSECHIRM 
FLIST1 ;EIN5PPUNG IN GENE INS AMEN TEIL 



***** START DER FLLIST-ROUTINE 
FLLIST 



LD 

LD 
LD 
LD 

LD 



I X , VARADR 
UX+3>,79 
(IX+6) ,10 



IX ZEIGT AUF VARIABLENBEREICH 

LETZTE SPALTE AUF DRUD ER 

MA U MALE EINRuDUNG AUF DRUQ ER 

A,l ;i=DRUDER 

'.PVFLAG), A ;AUSGABE AUF DRUQ ER SCHALTEN 



***** GEMEINSAMER TEIL FuR FORMATIERTFS LIST U. LLIST 

FLIST1 POP BC ;RuD SPRUNGADPESSE ENTFERNEN 

CALL LARG;1. ZEILENADR. NACH BC, 2, ZNR AUF STAD 

PUSH BC ;1. ZEILENSDRESSE RETTEN 

NExTL LD HL,OFFFFH ;DIRE(-TMODE 3ETZEN 

LD <A*TZNR),HL ; UND IN ENTSPRECHENDEN ZELLEN ABSPEICHERN 

PGP HL ;1. ZEILENADRESSE NACH HL 

POP DE ;2.ZNP NACH DE 

LD C, (HL) ;ZEILENZEIG£R LADEN 

INC HL 

LD B, (HL) ; (MSB) 

INC HL 
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BA09 78 
BAOA Bl 
BAOB CAl^lA 



BAOE 
BAH 
BA12 
BA13 

BA14 
BA15 
BA16 
BA17 
BA18 
BAl^ 
BA1A 
BA1B 
BA1E 
BA1F 
BA20 
BA21 
BA22 
BA25 



CD9B1D 

C5 

4E 

23 

46 

C5 

E3 

EB 

DF 

CI 

DA191A 

E3 

E5 

C5 

EB 

22EC40 

CDAFOF 



BA28 DD360000 
BA2C DD360500 
BA30 ED4BA740 
BA34 16FF 
BA36 El 
BA37 2B 

BA38 D7 
BA39 FE3A 
BA3B 2001 
BA3D D7 
BA3E FEOO 
BA40 CA12BB 
BA43 FE3A 
BA45 200A 

BA47 D^ 
BA48 FE3A 
BA4A 28FB 
BA4C CD38BB 
BA4F 18ED 

BA51 A7 
BA52 F2FFBA 



BA55 FE93 
BA57 2015 

BA59 CDF9BB 
BA5C 23 
BA5D 7E 
BA5E FEFB 



07300 U> 

07310 OR 

07320 3P 
07330 ; 

07340 CALL 

07350 PUSH 

07360 LD 

07370 INC 

07380 LD 

07390 INC 

07400 PUSH 

07410 EX 

07420 EX 

07430 RST 

07440 FOP 

07450 JF 

07460 EX 

07470 PUSH 

07480 PUSH 

07490 EX 

07500 LD 

07510 CALL 
07520 ; 

07530 LD 

0^540 LD 

07550 LD 

07560 LD 

07570 POP 

07580 DEC 
07590 ; 

07600 RST 

07610 CP 

07620 JR 
07630 FLIST2 RST 
07640 FLIST3 CP 

0?650 JP 

07660 CP 

07670 JR 

07680 ; 

07690 FLI5T4 RST 

07700 CP 

07710 JR 

07720 CALL 

07730 JR 

07740 ; 

07750 FLI5T5 AND 

07760 JP 

07770 

07780 

07790 

<%7800 

07810 

07820 

07830 TO* CP 

07840 JR 

07850 ; 

0^860 CALL 

07370 INC 

07880 LD 

07890 CP 



C ; PROGRAMMENDE ERREICHT 

Z,HAUPTS+1 ;FALLS JA, DANN ZUR HAUPTSCHLEIFE 

BREAI- ;BEHANDLUNG VON TASTENDRUED EN 

BC ;NAECHSTE ZEILENADRESSE RETTEN 

C, (HL) sAKTUELLE ZNR NACH BC <LSB> 

HL 

B, <HL> ; <MSB> 

HL 

BC ;ZNR RETTEN 

(SP),HL jZEIGER RETTEN, ZNR NACH HL 

DE.HL ;2. ZNR NACH HL, ZNR NACH DE 

01SH;ZNR 2. ZNR" 1 

BC ;ZEIGER NACH BC. 

C,HAUPTS;WENN 2. ZNR ERREICHT DANN HAUPTSCHLEIFE 

(SP>,HL ;2. ZNR RETTEN, MAECHSTE ZEILENA. NACH HL 

HL ;NAECHSTE ZEILENADRESSE RETTEN 

BC jZEIGER RETTEN 

DE,HL ;A*TUELLE ZNR NACH HL 

<REFZNR),HL ; ALS ' .' BEZUG ABSPEICHERM 

PRZNR iZEILENNUNMER AUSGEBEN 

<IX+O>,0; INDENT-COUNTER NULL SETZEN 

( IX+5) , 0: THEN-ELSE-FLAb RUED SETZEN 

BC,<BUFANF) ; BC ZEIGT AUF TEXTBUFFER-ANFANG 

D,255 ;TEXTBUFFER-LAENGE AUF 255 SETZEN 

HL jZEIGER VOM STAC*- HOLEN 

HL jZEIGER VOR 1. TEXTZEICHEN SETZEN 

10H jLEERZEICHEN AM ZEILENANFANG uBERGEHEN 

':> ;IST 1. RELEVANTES ZEICHEN ':' 

MZ,FLIST3 jFALLS NEIN, DANN ZEICHEN AUSWERTEN 

10H ;FALLS JA, DANN ':' uBERGEHEN 

ZENDE j 1ST ZEILENENDE-ZEICHEN ERREICHT 

Z,LINENDjFALLS JA, DANN AUSSFRUNG 

':' ;IST ZEICHEN ':' 

NZ,FLIST5 ; FALLS NEIN, DANN WEITERE AUSWERTUNS 

10H ;NAECHSTE5 RELEVANTES ZEICHEN SUCHEN 

* : ' ; 1ST ES W1EDER ' : ' n 

Z,FLIST4; FALLS JA, DANN *:' uBERGEHEN 

PRINT ;FALLS NEIN, DANN TEXTBUFFER AUSGEBEN 

FLIST3 ;UND ZEILE WE ITER ABARBEITEN 

A ; FLAGS GENAESS A SETZEN 

P, NOTCH- ; FALLS l-EIN TO* EN, SPRUNG NACH NOTOK 



***** TOKEN AUSWERTEN 



REM jREM-TOI-EN^ 

NZ,T0^3 ;FALL5 NICHT, WEITER AUSWERTEN 

TOI-BUF j'REM* AUSGEBEN 

HL ;HL ZEIGT AUF NAECHSTES ZEICHEN 

A, (HL) ; ZEICHEN NACH A BRINGEN 

REMAF ;IST ZEICHEN REMARK -APOSTROPHE 
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RA60 
BA62 
BA63 
BA64 
Btt66 
BA6* 
BA6C 

BA6E 
BA70 

BA72 
BA75 
BA76 

BA77 
BA79 
BA7B 
BA7E 
BA81 
BAS3 
BAB5 
BA8B 
BASA 
BABC 
BA3F 

BA91 
BA93 
BA95 
BA98 
BA9C 
BAAO 
BAA4 

BAA6 
BAAB 
BAAA 
BAAD 
BABi 

BAB5 
BAB9 
BABB 
BABD 
BACO 
BAC3 
BAC5 
BAC8 
BACA 
BACD 
BACF 
BAD2 
BAD4 
BAB7 
BADS 
BADC 

BAEO 

BAE2 
BAE4 



2002 

7E 
FEOO 

CR12BB 
CD2BBB 
18F4 

FES8 
20 IF 

CDF9BB 

7E 

FE22 

2008 

CD18BB 

CA12BB 

18F2 

FEOO 

CA12BB 

FE3A 

28BB 

CD2DBB 

1BE4 

FE8F 

2011 

DD3400 

DD360801 

DD360A00 

DD360901 

1353 

FECA 
20 OB 
CD38BB 
DD760501 
DD36090O 

DDCB0946 

2825 

FEBE 

F2E0BA 

CD38BB 

3E54 

CD2DBB 

3E48 

CD2DBB 

3E45 

CD2DBB 

3E4E 

CD2DBB 

7E 

DD360501 

DD360900 

FE95 
2015 
DD360501 



07900 
07910 
07920 

07930 
07940 
07950 
07 "60 
07970 
07980 

08000 

08010 

08020 

08030 

080 40 

08050 

08060 

08070 

08080 

08090 

08100 

OBI 10 

08120 

08130 

08140 

OB 150 

08160 

08170 

08180 

08190 

08200 

08210 

08220 

08230 

08240 

08250 

08260 

08270 

08280 

08290 

08300 

08310 

08320 

08330 

08340 

08350 

08360 

08370 

08380 

08390 

08400 

08410 

08420 

08430 

OB 4 40 

08450 

08460 

08470 

08480 

08490 



T0> 1 
TOl-2 



TQK3 



T0^ 4 



TQ\ 



TOI-6 



T0K7 



TO)- 8 



TOI-9 



JR 

INC 

LD 

CP 

JP 

wrlL»L> 

JR 

CP 

JR 

CALL 

INC 

LD 

CP 

JR 

CALL 

JP 

JR 

CP 

JP 

CP 

JR 

CALL 

JR 

CP 

JR 

INC 

LD 

LD 

LD 

JR 

CP 
JR 
CALL 

LD 
LD 

BIT 

JR 

CP 

JP 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

LD 

LD 

CP 
JR 
LD 



NZ,T0f2 ;FALLS NEIN, DANN WEITERBFARBEITEN 
HL ;HL 7EIGT AUF NAECHSTES ZEICHEN 



A, tHL> 
2ENDE 
Z,LINEND 
INBUF 



ZEICHEN NACH A BPTNGEN 

ZEILENENDE ERREIOfH 

FALLS JA, DANN AUSSPRUNG 

FALLS NEIN, DANN ZEICHEN NACH BUFFER 



TOM ; NAECHSTES ZEICHEN BEARBEITEM 



DATAsDATA-TOJEN- 7 
NZ,T0H6 ; FALLS NEIN, 



DANN WEITERBEARBEITEN 



TOf-BUF ;'DATA' AUSGEBEM 

HL ;HL ZEIGT AUF NAECHSTES ZEICHEN 

A, (HL) ; ZEICHEN NACH A 

"• * ; ANFuHRUNGSSTR I CHE" 1 

NZ.T0K5 ; FALLS NEIN, ZEICHEN WEITER BEARBEITEN 

QUOTE ;TEXT HINTER DEN QUOTES BEARBEITEN 

Z,LINEND; AUSSPRUNG FALLS ZERO-FLAG GESETZT 

TOM;S0NST NAECHSTES ZEICHEN BEARBEITEN 

ZENDE ; ZEILENENDE ERREICHT^ 

Z<LINEND;FALLS JA, AUSSPRUNG 

":' ;':' ERREICHT"' 

Z, Fl I ST4; MULTIPLE * :' AUSBLENDEN, BUFFER AUSGEBEN 

INBUF ;ANS0N5TEN ZEICHEN IN DEN TEXTBUFFER 

TOf 4; NAECHSTES ZEICHEN BEARBEITEN 

if ; iF-ra Err 

NZ,T0l-7 ; FALLS NICHT, WEITER 

(IX+O) ; INDENT-COUNTER INC 

(IX+8),1;5ET IF- INDENT-FLAG 

(IX+10),0 ;RESET ELSE-FLAG 

(IX+9),1;SET IF-FLAG 

TOMO ;UND HINTER DIE TO* EN-AU5WERTUNG 

THEN;THEN-TO>EN° 
NZ,T0K8 ; FALLS NICHT, WEITER 
PRINT ; BUFFER LEEFEN 
UX+5),i;SET THEN-ELSE-FLAG 
(I/+9) ,0; RESET IF-FLAG 

0, <IX+9) ; IF-FLAG RuCFBESETZT° 

Z,T0>9 ;FALLS JA, WEITERAU5WETUNG uBERGEHEN 

0BEH;BEFEHL5 TO* EN° 

P,T0*9 ; FALLS NICHT, WE I TERAUSWERTUNG uBERGEHEN 

PRINT ; BUFFER LEEREN 

A,'T' 

INBUF 

A, 'H' 

INBUF 

A, 'E' 

INBUF 

A, 'N' 

INBUF 

A, (HL) ;AfTUELLES TOKEN WIEDER NACH A 

(IX+5) , 1;SET THEN-ELSE-FLAG 

HK+9) ,0; RESET IF-FLAG 

ELSE;ELSE-TOtEN' 1 

NZ,T0K10;FALLS NICHT, WEITERES uBERGEHEN 

(IX+5),1;SET THEN-ELSE-FLAG 
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BAE8 DD360900 
BAEC DDCB0A46 
BAFO DD360A01 
BAF4 2803 
BAF6 DD3500 

BAF* CDF*BB 
BAFC C33DBA 



BAFF FE22 
BB01 2008 

BB03 CD13BB 
BB06 280A 
BBOB C33DBA 

BBOB T F 
BBOC CB2DBB 
BBOF C33DBA 



BB12 CD38BB 
BB15 C3FDB9 



BB1B CD2DBB 
BB1B 23 
BB1C 7E 
BB1D FEOO 
BB1F 2002 

BB21 AF 

BB22 C9 

BB23 FE22 
BBZ5 20F1 
BB27 CB2DEB 
BB2A AF 
PB2B 3C 
BB2C C9 



08500 

08510 

08520 

08530 

08540 

08550 

08560 

08570 

08580 

085*0 

08600 

08610 

08620 

08630 

08640 

08650 

08660 

08670 

08&80 

08fc90 

03700 

08710 

08720 

08730 

08 "MO 

08750 

08760 

08770 

08780 

08790 

08800 

08810 

08820 

08830 

08840 

08850 

0BB60 

08870 

08880 

08890 

08900 

08910 

08*20 

08930 

08940 

08950 

08*60 

08*70 

08980 

08*90 

0*000 

09010 

•***020 

09030 

09040 

0*050 

0*060 

090 7 

'.'9080 

09090 



LD 

BIT 

LD 

JR 

DEC 

TOI- 10 CALL 
OP 



aX+9),0jRESET IF-FLAG 

0, UX-t-10) ; ELSE-FLAG GESETZT - ' 

(IX+10) , 1 ;SET ELSE-FLAG 

Z,TOMO ;FALLE NICHT, WEITERE AUSFuHRUNGEN uBE*G 

ay+oj isonst indent --counter dec 

TOI-BUF ;TD*EN DECODIEREN U. IN BUFFER SC^PEIBEN 
FLIET2 ;NAECHSTES ZEICHEN BEAPBEITEN 



***** might-token auswepten 
no™ 



NOTOH 



CP 
JR 

CALL 

JR 

JP 

LD 

CALL 
JP 



1 " ' ; ANFuHRUNGSSTR I CHE^ 

NZ, NOTOH ;FALL5 NEIN, WE ITER AU5WERTEN 

QUOTE ;ZEICHEN NACH QUOTE AU5WERTEN 
Z,LINEND; FALLS ZERO-FLAG GESETZT AUSEPRUNG 
FLIST2 ;S0N5T NAECHSTES ZEICHEN AUSWEPTEN 



A, (HL) 

INBUF 

FLIST2 



AhTUELLES ZEICHEN NACH A 

ZEICHEN IN DEN TEXTBUFFER BPINCEN 

UND NAECHSTES ZEICHEN AUSWEPTEN 



***** AUSSPRUNG BEI ZEILENENDE 
LINEND 



CALL 
JP 



PRINT ;BUFFEP AUSDRUO EN 

NEXTL ;ZUM AUSWERTEN DER NAECHSTEN ZEILE 



***** VON HAUPTPROGRANM ANGESPRUNGENE UNTERPPOGRAMME 



***** QUOTE 

***** 'BEHANDELT TE>T IN ANFuHRUNGSSTRIChEN* 

QUOTE CALL INBUF ; ANFuHRUNGSSTRICHE IN DEN BUFFER BRINSEN 

INC HL ;AUF NAECHSTES ZEICHEN ZEIGEN 

LD A, <HL) ;NACH A BRINGEN 

CP ZENBE ; ZEILENENDE ERREICHT'' 

JR NZ, QUOTE 1 ; FALLS NEIN, DAMN WEITER ARBEITEN 

* 

XOP A ; FALLS JA, DAMN END-FLAG (ZERO* SETZEN 
RET ;UND ZURuU 

QUOTE 1 CP "" ;WIEDER ANFuHRUNGSSTRICHE^ 

JR NZ,QUOTE;FALlS NEIN, SCHLEIFE 

CALL INBUF ; FALLS JA, DAMN QUOTES NACH BUFFER 

XOR A ;A-0 

INC A ;A=1 'DAMIT ZERO-FLAG RuQ GESE T ZT> 
RET ; AUSSPRUNG MIT RuQ GESETZTEM END-FLAG 
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BB2D 02 
BECE BD7702 
BB31 7 A 

BB32 FE00 
BB34 C8 



BB35 
BB36 

BB37 



03 
15 
C? 



BB3B 
BB39 
BB3A 
BB3B 
BB3E 
BB41 
BB42 
BB44 
BB46 
BB4? 
BB4B 
BB4E 
BP51 
BB54 
BB56 
BB58 
BB59 
BB5C 
BB5E 
BB61 
BB64 

BB66 
BB67 
PB69 
BB6B 
BB6E 
BB71 
BB74 
BB76 
BB77 
BB^A 
BB7B 
BB7D 
BBSO 
BB82 
BB84 



F5 

E5 

AF 

CB2DBB 

2AA740 

7E 

FE00 

2B4A 

CDA5BB 

3E20 

CB2A03 

CBBBBB 

BD7E01 

FE06 

20F1 

AF 

DDB604 

2808 

CDEFBB 

DD3504 

18F2 

7E 

FEOO 

2S2E 

CDBBBB 

DD7E01 

DDBE03 

2807 

7E 
CD2A03 

18E9 

3A9C40 

FEOO 

2305 

CDFE20 



09 1 00 
09110 
09120 
09130 
09140 
09150 
0*160 
09170 
0*180 
09190 
09200 
09210 
09220 
09230 
09240 
09250 
09260 
092^0 
09280 
0*29'*' 
09300 

0931'"' 

09320 

09330 

09340 

09350 

09360 

0*370 

09330 

09390 

09400 

09410 

09420 

09430 

09440 

09450 

0^4 60 

09470 

09480 
0049,-) 

09500 
09510 
09520 
09530 
09540 
09550 
09560 
09570 
09580 
09590 
09600 
0*610 
09620 
09630 
09640 
09650 
0*660 
09670 
09680 
09690 



***** INBUF 

***** tBRINGT ZEICHEN IN A IN DEN BUFFER, VERHINDERT 

***** uBERLAUFEN DES BUFFERS) 



INBUF 



LD 


<BC 


LD 


'IX 


LD 


A,B 


CF 





RET 


L 


INC 


BC 


DEC 


D 


RET 





, ;SCHREIBT A SEMAESS BUFFEPZEIGER EIN 
IX+2),A;NACH <IX+2) ALS LETZTE5 AUSGEGEBENES Z, 
VERBLEIBEMBE BUFFERLAENGE NACH A 
1ST BUFFER VOLL' 1 
FALLS JA, DANN RuD SPRUNG 
FALLS NEIN, DANN BUFFERZEIGEP INC. 
VERBLEIBENDE BUFFERLAENGE DEC. 
UND RuD SPRINGEN 



***** PRINT 

***** (GIBT TEXTBUFFEP FORMATIEPT AUS) 



PRINT! 



PRINT2 



PRINT PUSH 
PUSH 
XOR 
CALL 
LD 
LD 
CP 
JR 

CALL 
LD 

CALL 
CALL 
LD 
CP 
JR 
XQR 
OR 
JR 

CALL 
DEC 
JR 



AF ; ZEICHEN IN A RETTEU 

HL ;HL ALS ZEIGER RETTEN 

A ; A=0 

INBUF ;BUFFERINHALT MIT 

HL, (BUFANF) ; HL ZEIGT AUF 

A, (HL) ; ZEICHEN NACH A 

; BUFFER ENDE" 

Z, PRINTS 

INDCHK 

A,' ' 

OUTCHF 

PVPOS 

a, ax+n 



ABSCHLIESSEN 
BUFFERANFANG 



FALLS JA, AUSSPRUNG 

INDENT COUNTER AUFBEREITEN 

LEERZEICHEM NACH A 

UND AUSGEBEN 

BILBSCHIFM ODER DRUC" EFSFALTE HOL EN 

UND NACH A BRINGEN 



PRINT3 



print; 



PRINT6 



LD 

CP 
JR 
CALL 

LD 

CP 

JR 

LD 

CALL 

INC 

JP 

LD 

CF 

JP 

CALL 



6 ;6. 5PALTE ERREICHT- 

NZ,PRINT2 ; FALLS NEIN, DANN SCHLEIFE 

A ; A=0 

(IX+4) ;IST AUFBEREITETER INDENT COUNTER ^ 

Z,PRINT5;FALLS JA, WEITER 
BLAW 5 ;SONST 5 LEEPZEICHEN AU5GFBEN 
tIX+4) ;AUFBEREITETEN INDENT COUNTER DEC. 
PRINT3 ;UND SCHLEIFE 

A, (HL) ; ZEICHEN NACH A 

("' ; 1ST ENDE ERREICHT"' 

Z,PRINT9; FALLS JA, DANN ZUH AUSSPRUNG 

PVPOS ;SPALTENPOSITION NACH (IX+1) HOLEN 

A, (IX+1);UND NACH A BRINGEN 

Ux+3> ;IET A GLEICH MAX. SPAL TENFOSITIOP 

Z,RRINT6;FALL5 JA, NEUE ZEIlE EINLEITEN 

A, (HL) ;A>TUELLES ZEICHEN NACH A 

QUTCHF ;UND ZEICHEN AUSGEBEN 

HL ; ZEIGER AUF NAECHSTES ZEICHEN PuQ EN 

PRINTS ;UND SCHLEIFE 

A, (PVFLAG) ;PRINTER-VIDEO FLAG LADEN 

;STFHT PV FLAG AUF BILDSCHIPN"' 

Z,PRINT7;FALL3 JA, DANN BILDSCHIPN BEHANDLUNG 

CR ; SONET CR AUF DRUO ER AU56FBEN 



2.2.2 Basiceruei terung COLBAS - Quel lprogramm 



Seite 107 



BB87 
BB89 

BBBA 
BB8D 
PB3E 
BB90 
BB93 
BB94 
BB97 
BB°9 
BB9C 
BBAO 
BBA2 
BBA3 
BBA4 



18BS 

^E 

CD2A03 

1SB1 
CDBDBB 
AF 
DDBE01 

2803 

CDFE20 

ED4BA740 

16FF 

El 

Fl 

C9 



BBA5 DD7E00 
BBA8 DD7704 
BBAB AF 
BBAC BDB605 

BPAF 2303 
BBB1 DD3504 

BBB4 DDCBOBA6 
BBB8 2803 

BBBA DD3504 

BBBD AF 
BBBE DDB604 
BBC1 F2C8BB 

BBC4 DD360400 

BPCS DD^EOt 
BBCB DDBE04 
BBCE F2D4BB 

BBB1 DD7704 

BBD4 DD 360500 
BBD8 DD3&0S00 

RBDC C9 



BBBD 3AA64U 
BBE'"> BD^Ol 
BBE3 3A°C40 
BBE6 B7 
BBE * i-<8 



09700 

09710 

09720 

09730 

09740 

09750 

09760 

09770 

09780 

09790 

09800 

09810 

09820 

09830 

09840 

09850 

0Q860 

09870 

09880 

09890 

0°900 

09910 

09920 

09930 

09940 

09950 

09960 

0"970 

09980 

09990 

10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 



PRINT7 



PPINT8 



PPINT9 
PR IN 10 



***** 
***** 

INDCHi 



IND1! 



INDCH1 



INDCH2 



INDCH3 



***** 
***** 

PVPOS 



JR 

LD 

CALL 

INC 

JR 

CALL 

XOR 

CP 

JR 

CALL 

LB 

LD 

POP 

POP 

RET 



PRINT1 ;UND NAECH5TE PHYSH ALI3CHE 2EILE 

A, <.HL» ;ZEICHEN FuR LETZTE BILB5CHIRMSPALTE 

OUTCHF ; AUSGEBEN 'E5 ERFQLGT AUTOMAT I SCH CP ! ) 

HL ;ZEIGER ZEIGT AUF NAECHSTES ZEICHFN 

PRINT1 ;UND NAECHSTE PHVSH AL ISCHE ZEILE 

PVPOS ;AFTUELLE 5PALENP0BITI0N NACH (I\+l) 

A ; A=0 

UX+P ;5TEHT CURSOR AUF l.SPALTE n 

Z,PRIN10; FALLS JA, ^IN CR AUSGEBEN 

CR ;SONST CR AUSGEBEN 

BC, fBUFANFj ; BC ZEIGT WIEDER AUF BUFFER ANFANG 

D,255 ;D AUF VOLLE LAENGE 5ETZEN 



HL 
AF 



HL WIEDER ALS ZEIGER ZUPuQ HOLEN 
7EICHEN NACH A ZURuD' 
UND RuD- SPRUNG 



INDCHK 

(JUSTIERT INDENT-COUNTER? 

LD A, <IX+0>; INDENT-COUNTER NACH A 

LD UX+4>,A;A NACH AUFBEREITETEN INDENT-COUNTER 

XOR A ;A=0 

OR (IX+SJ ; THEN-ELSE-FLAG GESETZT^ 

JR Z,IND15 ;FALLS MEIN, DAMN WEITER 

DEC <Ix+4) ;SONST AUFBEREITETEN INDENT- COUNTER DEC. 

BIT 0, UX+8; ; IF-INDENT-FLAG GESETZT^ 

JR Z, INDCH1; FALLS NEIN, DAMN WEITER 

DEC (IX+4) ;SONST AUFBEREITETEN INDENT -COUNTER DEC. 

>,0R A ;A=0 

OR <IX+4) ;IST AUFBEREITETER INDENT-COUNTER = 0° 

JP P,INDCH2; FALLS JA, DANN WEITER 

LD <IX+4),0;S0NST AUFBEREITETEN INDENT-COUNTER = 

LD A, UX+6) ;MAX. INDENT NACH A 

CP (IX+4' ;IST INDENT \ LEINER GLEICH MAX. INDENT 

JP P,IMDCH3; FALLS JA, DANN WEITER 

LD (IX+4) ,A;50NST INDENT GLEICH MAX. INDENT SETZEN 

LD tIX+5) ,0; THEN-ELSE-FLAG RUED SETZEN 

LD UX+8) ,0; IF-INDENT-FLAG RuCI- SETZEN 

RET ;UND NIT AUFBEREITETEM INDENT ZURUEQ 



PVPOS 

'BRINGT SPALTENF'OSITION VON DRUD EP ODER BILDSCHIRM NAC 

LD A, \VPOS>; VIDEO SPALTEMPOSITION NACH A 

LD 'IX+1> ,A;WEITER NACH H* + l» 

LD A, fpVFLAb, 1 ;PVFLrtG NACH A 

OR A ;A> FUELLE AUSbABE AUF VIDEO" 1 

RET Z ; FALLS JA, ZURUECF 



ax+n 
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BBE8 3A9B40 
BBEB DD7701 
BBEE C9 



BBEF 0605 
BBF1 3E20 
BBF3 CD2ftO: 
BBF6 10F* 
BBF8 C9 



BBF9 
BBFB 
BBFC 
BB^E 
BCOO 
BC03 
BC05 
BC08 
BC09 
BCOD 
BCOF 
BC11 
BC15 
BC16 
BC18 
BC19 
BC1A 
BC1D 
BC1E 
BC1F 
BC20 
BC23 
BC24 
BC26 
BC28 
BC2B 
BC2C 
BC2D 
BC2E 
BC31 
BC32 
BC33 
PC34 
BC37 
BC39 
BC3A 
BC3C 
BC3E 



3EFF 

BA 

280A 

3E20 

DBBE02 

2803 

CD2DBB 

7E 

DD 360 7 00 

FEFF 

2004 

DD360701 

D67F 

£5 

5F 

CDAD39 

7E 

B7 

j_ _* 

F21DBC 

ID 

20F7 

E67F 

CD2DBB 

7E 

23 

B7 

F228BC 

El 

2B 

AF 

DDBE07 

2810 

7E 

FE81 

200 B 



0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

04°0 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

08^0 



LD A, c PROS J jSONST DFLO ER5PALTE NACH A 
LD <IX+1),A;UND WEITER NACH UX+1) 
RET ;UND ZURUED 



***** 
***** 

BLANt" 5 
BLANt 



(f*Hf ** 

***** 

TOt BUF 



TOt BUI 



TOt bu: 



BLANKS 

(GIBT 5 LEERZEICHEN AU5) 



N0D0T0 



LD 

LD 

CALL 

DJNZ 

RET 



B,5 ;5CHLEIFENZAEHLER SETZEN 



A,' ' 

OUTCHF 

BLANt 



LEERZEICHEN NACH A 
UND AU3GEBEN 

SCHLEIFE 



;SONST ZURUECt 



TOt BUF 

(DECODIERT TOt EN UND SCHREIBT ES IN DEN BUFFER) 



TOt BU2 



LD 

CP 

JR 

LD 

CP 

JR 

CALL 

LD 

LD 

CP 

JR 

LD 

INC 

SUB 

PUSH 

LD 

CALL 

LD 

OR 

INC 

JP 

DEC 

JR 

AND 

CALL 

LD 

INC 

OR 

JP 

POP 

DEC 

XOR 

CP 

JR 

LD 

CP 

JR 

INC 



A=255 

BUFFER NOCH LEER^ - ' 
FALLS JA, WEITER 
LEERZEICHEN NACH A 

1ST LETZTES AUSGEGEBENES Z. LEERZEICHEN' 
FALLS JA, WEITER 
50NST LEERZEICHEN IN DEN BUFFER 
At TUELLE5 TOt EN NACH A 
DOPPELTOt EN-FLAG RuCt SETZEN 
1ST AtTUELLES TOt- EN EIN DOPPELTOt EN^ 
; FALLS NEIN, FLAG RuCKGESETZT LASSEN 



A, 255 

D ; 1ST 

Z.TOt BUI 

A,' ' 

<IX+2) 

Z,TOt BUI 

INBUF 

A. (HLf 

(IX+7),0 

BOPTOF 

NZ , NODOTO 

tIX+7J,l;S0NST DOPPELTOt EN-FLAG SETZEN 

HL -.ZEIGER FUER R0M-EIN5PRUNG JUSTIEREN 

7FH ; TOt EN - 7F LIEFERT NR DES t EY'WORD 

HL ;CODEZEIGER RETTEN 

E,A ;NR. DES t EYWORD NACH E 

TABANF ;LAEDT DEN ANFANG DER FEYWORDTAB. NACH HL 

A, <HL^ ;ZEICHEN LADEN 

A ; ANFANG DES NAECH5"<"EN 

HL ; ZEIGER AUF NAECHSTES 

P, TOt BU2; FALLS NEIN, DANN 

E jGEWuNSCHTES t EVWORD ERREICHT" 1 

NZ<T0t-BU2 ; FALLS NEIN, DANN WEITEP5UCHEN 

7FH ; WORTANFANGSMARt IERUNG ENTFERNEN 

INBUF ;UND ZEICHEN IN DEN BUFFER 

A, <HL> -.ZEICHEN DES t EYWORD LADEN 

HL ; ZEIGER AUF NAECHSTES ZEICHEN 

A ;1. ZEICHEN DES NAECHSTEN \ EVWORD^ 

P, TOt BU3; FALLS NEIN, DANN WEITER AUSGEBEN 

HL ;CODEZEIGER ZURuCt 

HL ;UMD ZRuCt JUSTIEREN 

A ; A=0 

CIX+7) ; DOPPELTOt ENFLAG RuCt GESETZT"' 

Z, TOt BU4; FALLS JA, NORNALER AUSSPRUNG 

A, 'HL) ;BE3RBEITETES TOt EN NACH A 

FCOLOU ;WAR ES DAS FCOLOUR-TOt EhP 

NZ,T0tBU4 ;FALLS NEIN, NORNALER AUSSPRUNG 

HL ; ZEIGER AUF ZEICHEN NACH TOt"EN SETZEN 



t EYWORD EPPEIOm 

ZEICHEN 
WEITERSUCHEN 
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BC7F 7E 
PC 40 2B 
PC*] FE52 
EC 47 2004 
BC45 CD2DBB 
BC43 23 
PC 49 7E?0 
BC4B CD2DBB 
BC4E C* 



PC4F 00 
BC50 00 
PC 51 00 

BC52 00 
BC57 00 
BC54 00 
BC55 00 
DC56 00 
BC57 00 
BC58 00 
PCS* 00 



072A 
0361 

OFAF 
1PC0 

2B~'5 
1B9B 



40 A 4 
40A6 



0OS8 
0093 



1 0900 
109)0 
l'~>920 
1 0930 
1 0*40 
1 0*50 
10960 
10970 
10980 
10 qq 
11000 
11010 
1 1 020 
11030 
1104'"* 



TOt PU4 



LB 

DEC 

CP 

JR 

CALL 

INC 

LD 

CALL 

RET 



A, <HL) ;UMD ZEICHEM NACH A 
HL ;ZEIGER FuR AU3SRRUNG JUSTIEREN 
1 R ' -■ 

; FALLS NEIN, NORMALER AU'^SPRUNG 
' I ri DEN BUFFER LADEN 
ZUM AUSSJEUNG JUSTIEREN 
iLEERZEICHEN NACH A 
;UND AUSGEBEN 



'R 1 ;IST ES 
N7,T0hBU4 
INBUF ;'R 
HL ;ZE1GEE 
A,' ' 
INBUF 



11' 
It 
11 
11 



>50 
)60 
)70 

>80 



***** VARIABLEN5PEICHER 
VARADR 



110*0 
11100 

11 110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
1 1 230 
11240 
1 1 250 
1 1 260 
1 1 270 
1 1 280 
112*0 
11300 



DEFB 

DEFP 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 





o 

o 
o 

M 

o 



l'\ 





CIXHD 
MX + 1J 
UX+2) 
{ I \* 7 ) 
'IX+4J 

ax+5) 

(IX+o> 
(IV+* 7 ) 

u*+8) 

' I X h 9 ) 

K I X H 1 ) 



INDENT COUNTER 
PRINT BIW. VIDEO-SPALTE 
LET2TES IN BUFFER GESCHR. ZEICHEN 
OORGEGEPENE ZEILENLAENGE 
AUFBEREITETER INDENT COUNTER 
THEN-ELbE-FLAG <l=GEbETZT; 
MA'. INDENT OORGABE 
DDPPELTOI- EN-FLAG < i=DOPPELTGt EN> 
IF-INDENT-FLAG 
IF-FLAG 
ELSE-FLAG 



***** 
***** 
***** 



EUCHEN IN BASIC-TE\T FuR TPB--80 U. COLOUR-GENIE 
VERSION 1.0 28. 11.87 
(C) 1*83 BV M. BuNING 



***** 
***** 
***** 



***** R0M-ADRE55EN 



SHOCHR 

GETETR 

SHOL I N 

CODE 

SHOMSG 

STOP 



EQU 

EQU 
EQU 
EQU 
EQU 
EQU 



72AH 
7c 1H 
OFAFH 
1 BC OH 
2B~'5H 
1D°BH 



jGIBT ZEICHEN IN A AU5 

SLIEST ZEILE IN DEN BUFFER 

;GIBT ZEILENNUMNER IN HL AUS 

;ERZ£UGT ZWISCHENCODE 

jGIBT STRING AUS 

;NERTET BREA* UNO SHIFT > L. AUS 



it t ' 



*T»t" 



11 

117 

n; 

u 

li 

113 

11 

113 

113 



; ***** SYSTEM-RAM-ADRES5EN 



10 
20 
30 
40 
50 
60 
7 
80 
9"'* 



PSTF 
CUP5P 



EQU 
EQU 



***** TO* EN 



DATAT 

RENT 



EQU 
EQU 



40A4H ;ZEIGER AUF BASIC-ANFANG 

40A6H ; CURSGR-SPALTE 



88H ; DATA 
"3H ; PEN 



PC5A DD21D5BD 



11400 
11410 

11420 
11470 
1 1 44-:> 
J 1450 
11460 
J 1 470 
11430 
114*'-' 



START DER SUCH- ROUTINE 



GET 



LD 



I v , a AG 



;IX ALS ZEIGER AUF DEN FLAG-BEREICH 
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BC5E BD360000 


11500 




LD 


(IX+OKO 


BC62 3E01 


11510 




LD 


A,l 


BC64 32D4BD 


11520 




LD 


<NFi,A 


BC67 2192BD 


11530 




LD 


HL, STRM 


BC6A CD752B 


1 1540 




CALL 


SHOMSG 


BC6D CD6103 


11550 


STRIN 


CALL 


GETSTR 


BC70 23 


11560 




INC 


HL 


BC71 7E 


11570 




LD 


A, <HL) 


BC72 B7 


11580 




OR 


A 


BC73 CA16BD 


11590 




JP 


Z, RETURN 


BC76 FE40 


11600 




CP 


' ?:' 


BC78 200F 


11610 




JR 


NZ,ST2 


BC7A 23 


1 1620 




INC 


HL 


BC7B 7E 


11630 




LD 


A, <HL) 


BC7C FE40 


11640 




CP 


'5' 


BC7E 2008 


11650 




JR 


NZ,ST1 


BC80 23 


11660 




INC 


HL 


BC81 7E 


11670 




LD 


A, <HL) 


BC82 B7 


11680 




OR 


A 


BC83 CA16BD 


11690 




JP 


I, RETURN 


BC86 1809 


1 1 700 




JR 


3T3 


BC88 2B 


11710 


ST1 


DEC 


HL 


BC89 CDC01B 


117 20 


ST2 


CALL 


CODE 


BC8C DD360001 


1 1 730 




LD 


(IX+O) ,1 


BC90 23 


11740 




INC 


HL 


BC91 22D0BB 


11750 


ST3 


LD 


<STR),HL 


BC94 2AA440 


11760 




LD 


HL, <BSTP> 


BC97 7E 


11770 




LD 


A. (HL) 


BC98 B7 


11780 




OR 


A 


BC99 2006 


11790 




JR 


MZ.SU 


BC9B 23 


11800 




INC 


HL 


BC9C 7E 


11810 




LD 


A, (HL) 


BC9D B7 


11820 




OR 


A 


BC9E 2860 


11830 




JR 


Z,NOPGM 


BCAO 2B 


1 1840 




DEC 


HL 


BCA1 2B 


11850 


SU 


DEC 


HL 


BCA2 23 


11860 


GETPTR 


INC 


HL 


BCA3 5E 


11870 




LD 


E, (HL) 


BCA4 23 


11880 




INC 


HL 


BCA5 56 


11890 




LD 


D, <HL) 


BCA6 AF 


11900 




XOR 


A 


BCA7 B3 


H910 




OR 


E 


BCA8 C2AFBC 


11920 




JP 


NZ, GETLIN 


BCAB B2 


11930 




OR 


D 


BCAC CA09BB 


11940 




JP 


Z , ENDBA5 


BCAF 23 


11950 


GETLIN 


INC 


HL 


BCBO 5E 


11960 




LD 


£, (HL? 


BCB1 23 


11970 




INC 


HL 


BCB2 56 


11980 




LD 


D, (HL) 


BCB3 ED53D2BD 


11990 




LD 


<LIN),DE 


BCB7 23 


12000 


SCAN 


INC 


HL 


BCB8 0600 


12010 




LD 


B,0 


BCBA ED5BD0BD 


12020 




LD 


DE, ISTR) 


BCBE 1A 


12030 


SCI 


LD 


A, (DE) 


BCBF B7 «-■ 


1 2040 




OR 


A 


BCCO C2C8BC 


12050 




JP 


NZ,SC3 


BCC3 CD6EBD 


12060 




CALL 


PRLINE 


BCC6 1830 


12070 




JR 


SC4 


BCC8 4E 


12080 


SC3 


LD 


C, (HL) 


BCC9 OC 


12090 




INC 


C 



;T-FLA6 RuCKSETZEN 



;RuCKKEHR, FALLS NICHTS EINGEGEBEN 



;RuCKKEHR, FALLS NICHTS EINGEGEBEN 



;T-FLAG SETZEN 



«j.»4~- 



■W. ■v. .-.7T'* . - ■*.!-,, >.-„;,, 



;AKTUELLE ZEILENNUMMER AUSbEBEN 
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BCCA 
BCCB 
BCCE 
BCCF 
BCD3 
BCD5 
BCD? 
BCDA 
BCDD 
BCDF 
BCEO 
BCE2 
BCE4 
BCE6 
BCE8 
BCEA 
BCEC 
BCED 
BCFO 
BCF2 
BCF3 
BCF4 
BCF5 
BCF8 
BCF9 
BCFA 
BCFB 
BCFD 
BDOO 
BD03 
BD06 
BD09 
BDOC 
BDOD 
BDIO 
BD13 
BB16 
BD1 C > 



OD 

CAA2BC 

B9 

DD360100 

2004 

DD360101 

AF 

DDBEOO 

280D 

79 

FE93 

2836 

FE88 

233E 

FE22 

2861 

AF 

DDBE01 

2806 

04 

23 

13 

C3BEBC 

48 

AF 

47 

EB42 

C3B7EC 

21B0BD 

CD752B 

C316BD 

3AD4BD 

B7 

CA16BD 

21A1BD 

CD^52B 

21B7BD 

C9 



BD1A CD60BP 
BD1D 23 
BDIE 7E 
BD1F FEOO 
BD21 20FA 
BD23 C3A2BC 



BB26 
BD2« 
BD2A 
BD2B 
BD2D 
BD2F 
BD32 
BD34 
BB36 
BD37 
BB3S 
BB3A 
BB3C 
BB3F 



CB60BD 

** -' 

7£ 

FEOO 
2003 

C3A2BC 

FE22 

200F 

*» J 

7E 

feoo 

2 '"'03 

C3A2BC 
FE22 



12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12270 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 

1 2440 

12450 

1 2460 

12470 

12480 

12490 

12500 

12510 

12520 

12530 

12540 

12550 

12560 

1 2570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 

1 2670 

12680 

12690 



5C31 



SC32 



SC35 



SC4 



NOPGM 



ENDBAS 



RETURN 



SREM 
SREM1 



SDATA 
5DATA1 



SDATA2 
SDATA3 



SDATA4 



DEC 

JP 

CP 

LD 

JR 

LD 

XOR 

CP 

JR 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

XOR 

CP 

JR 

INC 

INC 

INC 

JP 

LD 

XOR 

LD 

SBC 

JP 

LD 

CALL 

JP 

LD 

OR 

JP 

LD 

CALL 

LD 

RET 

CALL 

INC 

LD 

CP 

JR 

JP 

CALL 

INC 

LD 

CP 

JR 

JP 

CP 

JR 

INC 

LD 

CP 

JR 

JP 

CP 



Z, GETPTR 

C 

■IX+U ,0; u-FLAG RuP SETZEN 

NZ,5C31;BEI NICHT-uBEREIUS" 



IMMUNG FLAG LA5SEN 



CIX+1) , 1 

A 

'IX+O) 

Z,SC32 

A,C 

REMT 

Z , SREM 

DATAT 

Z, SDATA 

Z,SQUOTE 

A 

(IX+1) 

Z,SC4 

B 

HL 

DE 

SCI 

C,B 

A 

B,A 

HL,BC 

SCAN 

HL,NPGM 

SHOMSG 

RETURN 

A, (NF) 

A 

Z, RETURN 

HL,NFM 

SHOMSG 

HL,NULL 



EQUAL 

HL 

A, 'HL) 



NZ,SRENl 

GETPTR 

EQUAL 

HL 

A, <HL» 
r. 

NZ,SDATA2 

GETPTR 

' it i 

NZ,5DATA5 

HL 

A, (HL) 


NZ,SDATA4 

GETPTR 



SONST u-FLAG SETZEN 

A=0 

1ST T-FLAG RuPGESETZT? 

FALLS JA, DANN SPRUNG 

SONST TEXTZEICHEN NACH A 

1ST ES REM--TO* EN" 1 

FALLS JA, DANN AUSWERTEN 

1ST ES DATA-T01EN"- 

FALLS JA, DANN AUSWERTEN 

1ST ES ANFuHRUNGSZEICHEN" 1 

FALLS JA, AUSWERTEN 

A=0 

u-FLAG GESETZT • •••< 

FALLS NEIN, DANN NEUER SUCHBEGINN 



» vM >i' 



;ZEIGER AUF 3 NULLEN 1 



HL ZEIGT AUF NAECHSTES TEXTZEICHEN 
LIND 2EICHEN NACH A 
ZEILENENDE ERREICHT' 1 
FALLS NEIN, DANN 3CHLEIFE 
SONST ZUR NAECHSTEN ZEILE 



HL AUF NAECHSTES ZEICHEN 

U. ZEICHEN NACH A 

ZEILENENDE ERREICKn ' 

FALLS NEIN, WE ITER 

SONST NEUE ZEILE 

QUOTE "■ 

FALLS NEIN, WEITERE ABFRAGE 

ZEIGER AUF NAECHSTES ZEICHEN 

U. NACH A 

ZEILENENDE ERREICHT? 

FALLS NEIN, DANN WE ITER 

SONST NEUE ZEILE 

QUOTE" 1 
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BD41 20F3 


12700 




JR 


NZ,SDATA3 


BD43 18E4 


12710 




JR 


SDATA1 


BD45 FE3A 


12720 


SDATA5 


CP 


r . > 

• 


BD47 20E0 


12730 




JR 


NZ,SDATA1 


BD49 2B 


12740 




DEC 


HL 


BD4A C3B7BC 


12750 
12760 


« 
9 


JP 


SCAN 


BD4D CD60BD 


12770 


SQUOTE 


CALL 


EQUAL 


BD50 23 


12780 


SQU0T1 


INC 


HL 


BD51 7E 


12790 




LD 


A, (HL) 


BD52 FEOO 


12800 




CP 





BD54 2003 


12810 




JR 


NZ,SQU0T2 


BD56 C3A2BC 


12820 




JP 


6ETPTR 


BD59 FE22 


12830 


SQU0T2 


CP 


? n j 


BB5B 20F3 


12840 




JR 


NZ,SQU0T1 


BD5D C3B7BC 


12850 
12860 
12870 
12880 
12890 


■ 

* 
9 

m 
Jl 

• 
4 


JP 


SCAN 




12900 


;***** 


BENUTZTE 


UNTERPROGRAMM 




12910 


4 






BD60 AF 


12920 


EQUAL 


XOR 


A 


BD61 DDBE01 


12930 




CP 


(IX+1) 


BD64 C8 


12940 




RET 


Z 


BD65 13 


12950 




INC 


DE 


BD66 1A 


12960 




LD 


A, (DE) 


BD67 FEOO 


12970 




CP 





BB69 CO 


12980 




RET 


NZ 


BB6A CD6EBD 


12990 




CALL 


PRL1NE 


BD6D C9 


13000 
13010 
13020 
13030 
13040 


• 
9 

m 

1 

• 

* 


RET 




BD6E E5 


13050 


PRUNE 


PUSH 


HL 


.BD6F C5 


13060 




PUSH 


BC 


BD70 CD9B1B 


13070 




CALL 


STOP 


BD73 AF 


13080 




XOR 


A 


BD74 32D4BD 


13090 




LD 


(NF),A 


BD77 3AA640 


13100 




LD 


A, (CURSP) 


BD7A FE21 


13110 


-(..".. i ;j>\ 


CP 


33 


BD7C FA84BD 


13120 




JP 


M,PRLIN1 


BD7F 3E0D 


13130 




LD 


A, 13 


BD81 CD2A03 


13140 




CALL 


SHOCHR 


BD84 2AB2BD 


13150 


PRLIN1 


LD 


HL, (LIN) 


BD87 CDAFOF 


13160 




CALL 


SHOLIN 


BD8A 3E20 


13170 




LD 


A,20H 


BD8C CD2A03 


13180 




CALL 


SHOCHR 


BD8F CI 


13190 




POP 


BC 


BD90 El 


13200 




POP 


HL 


BD91 C9 


13210 
13220 
13230 
13240 
13250 


• 

■ 

• 

• 
5 


RET 






13260 


; ***** 


TEXTE 






13270 


* 






BD92 1D1E 


13280 


STRM 


DEFW 


1E1DH 


BD94 53 


13290 




DEFM 


'Such en nach: 



;FALLS NEIN, DAMN SCHLEIFE 

;SONST HAUFTSCHLEIFE 

; NAECHSTES STATEMENT? 

; FALLS NEIN, HAUFTSCHLEIFE 

;SONST IN ZEILE WEITERSUCHEN 



;HL AUF NAECHSTES ZEICHEN 

;U. NACH A 

;ZEILENENDE ERREICHT? 

; FALLS NICHT, DANN WEITER 

;SONST NEUE ZEILE 

;ERNEUT QUOTE? 

;FALL NEIN, SCHLEIFE 

;SDNST IN DIESER ZEILE WEITERSUCHEN 



;A=0 

1ST OBEREINSTIMMUNGSFLAG GESETZT? 

FALLS NEIN, RuCKSPRUNG 

DE AUF NAECHSTES ZEICHEN IN STRING 

UNO NACH A 

1ST STRINGENDE ERREICHT? 

FALLS NICHT, DANN RuCKSPRUNG , 
. SONST ZEILENNUMMER AUSGEBEN 
;UND ZURuCK 



;STOPPEN WaHREND DES AUSGEBEN 



;57 BEI TRS-80, 33 BEI COLOUR-GENIE 
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BPAO 00 

BDAi 4E 
BDAF 00 
BDBO 4B 
BDCF 00 



BDBO 0000 
BPD2 0000 
BDD4 00 
BDD5 00 
BDD6 00 
BDD7 00 
PDD8 '10 
8DD9 00 



1D7S 
1 F07 

1 B 1 
1E5B 
1B2C 
0FA7 
OFAF 
2B^5 
20FE 
1AE8 
1E4A 



1929 
40 A 4 
40F? 
4191 



008D 

00 SE 

'*'093 
0'*)95 

00 9 F 
<X>CA 

0038 
•jOAA 



BL'DA 280F 
BDDC 780D 



13300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
7450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3fc°0 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3"? 80 
3790 
3800 
3810 
3320 
3830 
3840 
3850 
3860 
38^0 
3380 
3890 



NFM 
NPGM 



PEFB 
DEFM 

PEFB 
DEFM 
DEFB 



1 1Micht qef unden 



lein BASIC -PrograrpiTf im Speicher 



o 



***** VARIABLEN-BEPEICH 



STP 
LIN 
MF 
FLAG 

NULL 



CHRGET 

3E0L 

LARG 

DECLN1 

5LINE 

PRZNR1 

PR ZNR 

PR I NTT 

CP 

ENDML 

FCEFP 



TEKT6 
TEXT A 
VARA 
\ ILLV 



GOTO 
RUN 

GGSUB 

REM 

ELSE 

RESUME 

THEN 

DATA 

I- ILLT 



ZEI6ER AUF 3TRINGANFANG 
ZWISCHENSPEICHER FuP ZEILEMNUMMEF 
FLAG '1-hEINE uBEREISTIMM. GEF UNPEN*' 
FLAG <i -TO!- EN-MODE,' 
FLAG t 1-PYTE-uBEPEINSTIMMUNP) 



DEFW 

DEFW 

DEFB 

DEFB 

DEFB 

DEFB t • • ' -- ■ - - 

DEFB 

DEFB 

* BASIOPP06PAMH-FAQ EP * 

ENTFERNT ALLE LEERRAEUME UND \ OMNENTARE 

COPYRIGHT BY LUIDGEP ROED RATH, 26.9.81 



BAG I CUNTEPPROGRAMME 



EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1D78H 
1F07H 

1B10H 
1E5BH 
1B2CH 
0FA7H 
OFAFH 
2B~5H 
20FEH 
1AE8H 
1F4AH 



BASICZEIGER 



EQU 

EQU 
EQU 

EQU 



1929H 

40A4H 
40F C >H 
4191H 



RST 10H UP 

ZEILENENDE 5UCHEN 

2 APGUMENTE ANALY5IEREM 

ZNR DECOBIEREN 

ZEILE IM PROGRAMMTE^T SUCHEN 

' IN ' ZNF AUSGEBEN 

ZNR AUSGEBEN 

TEXT AUSGEBEN 

CR AUSGEBEN 

HAUPT5CHLEIFENENDE - , .-»»■ «-■..«.!**. 

FC -ERROR 



;TEXT 'READY 1 

;ZEIGER AUF PROGRAHMTExTANFANG 

;ZEIGER AUF ANFANG DER VARTAB 



•.■*&*•# 



TO! ENS 



EQU 
EOU 
EQU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 



3DH 

8EH 

91H 

93H 

95H 

^FH 

OCAH 

83H 

OAAH 



i ILL 



! ILL 



JR 
JP 



Z J ILL2 
C,\ ILL2 



2.2.2 Bas iceruei terung COLBAS - Quel 1 programm 



Seite 114 



BDDE FECE 


13900 


CP 


OCEH 


BDEO 2809 


13910 


JR 


Z,KILL2 


BDE2 FE2E 


13920 


CP 


7 3 

• 


BDE4 2805 


13930 


JR 


Z.KILL2 


BDE6 2B 


13940 


DEC 


HL 


BDE7 D7 


13950 


RST 


10H 


BDE8 C33B01 


13960 


JP 


SNERR 


BDEB CD101B 


13970 KILL2 


CALL 


LARG 


BDEE Dl 


13980 


POP 


DE 


BDEF D5 


13990 


PUSH 


DE 


BDFO C5 


14000 


PUSH 


BC 


BDF1 CD2C1B 


14010 


CALL 


SLINE 


BDF4 69 


1 4020 


LD 


L,C 


BDF5 60 


14030 


LD 


H,B 


BDF6 Dl 


14040 


POP 


DE 


BDF7 DF 


14050 


RST 


18H 


BDF8 D5 


14060 


PUSH 


DE 


BDF9 DA4A1E 


14070 


JP 


C,FCERR 


BDFC CD74BF 


1 4080 


CALL 


LEN 


BDFF 2191BF 


14090 


LD 


HL,TEXT1 


BE02 CD752B 


14100 


CALL 


PR I NTT 


BEOS 2AA440 


14110 


LD 


HL, (TEXTA) 


BE08 2B 


14120 * v ' ■■ ■'■" 


DEC 


HL 


BE09 D5 


14130 


PUSH 


DE 


BEOA Dl 


14140 REF1 


POP 


DE 


BEOB 23 


14150 


IMC 


HL 


BEOC 7E 


14160 


LD 


A, (HL) 


BEOD 23 


14170 


IMC 


HL 


BEOE B6 


14180 


OR 


(HL) 


BEOF 287D 


14190 


JR 


Z , PACK 


BE11 23 


14200 


INC 


HL 


BE12 5E 


14210 


LD 


E, (HL) 


BE13 23 


1 4220 


INC 


HL 


BE14 56 


14230 


LD 


D, (HL) 


BE15 D5 


14240 


PUSH 


DE 


BE16 D7 


14250 REF2 


RST 


10H 


BE17 A7 


14260 


AND 


A 


BE 18 28F0 


14270 


JR 


Z,REF1 


BE1A FE22 


14280 


CP 


? ii » 


BE1C 2008 


14290 


JR 


NZ,JUMP 


BE IE D7 


14300 STRING 


RST 


10H 


BE1F A7 


14310 


AND 


A 


BE20 28E8 


14320 


JR 


Z,REF1 


BE22 FE22 


14330 


CP 


? H ? 


BE24 20F8 


14340 


JR 


NZ, STRING 


BE26 FEFF 


14350 JUMP 


CP 


OFFH 


BE28 23 


14360 


INC 


HL 


BE29 28EB 


14370 


JR 


Z , REF2 


BE2B 2B 


14380 


DEC 


HL 


BE2C FE8D 


1 4390 


CP 


GOTO 


BE2E 2819 


14400 


JR 


Z,JUMP1 


BE30 FE91 


14410 


CP 


GOSUB 


BE32 2815 


14420 


JR 


Z,JUMP1 


BE34 FE8E 


14430 


CP 


RUN 


BE36 2311 


14440 


JR 


Z,JUMP1 


BE38 FE9F 


14450 


CP 


RESUME 


BE3A 280D 


14460 


JR 


Z,JUMPi 


BE3C FE95 


14470 


C? 


ELSE 


BE3E 2804 


14480 


JR 


Z,JUMP2 


BE40 FECA 


14490 


CP 


THEN 



f*».i'»i< I .--. < «t. > *siMr>\t4fc':ih ■ 



■.-».x«-e.h.' 



■•»!-;--, -»w*i,. * . jj\,*„.Vt 
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BE42 20D2 


14500 




JR 


NZ,REF2 


BE44 D7 


14510 JUMP2 


RST 


10H 


BE45 2B 


14520 




DEC 


HL 


BE46 30CE 


14530 




JR 


NC,REF2 


BE48 AF 


14540 




XOR 


A 


BE49 F5 


14550 JUMP1 


PUSH 


AF 


BE4A CD5B1E 


14560 




CALL 


DECLN1 


BE4D 2B 


14570 




DEC 


HL 


BE4E Fl 


14530 




POP 


AF 


BE4F D69F 


14590 




SUB 


RESUME 


BE51 B2 


14600 




OR 


D 


BE52 B3 


14610 




OR 


E 


BE53 2SC1 


1 4620 




JR 


Z,REF2 


BE55 E5 


1 4630 




PUS hi 


HL 


BE56 CD2C1B 


14640 




CALL 


SLINE 


BE59 30 1C 


14650 




JR 


MC,UNDEFL 


BE5B 69 


■ 14660 . 


/ .'•>. 


LD 


L,C - 


BE5C 60 


14670 




LD 


H,B 


BE5D 23 


14680 




INC 


HL 


BE5E 23 


14690 




INC 


HL 


BE5F 23 


14700 




INC 


HL 


BE60 D7 


14710 




RST 


10H 


BE61 FE3A 


14720 




CP 


» . ' 

• 


BE63 CC781D 


14730 




CALL 


Z,CHRSET 


BE66 FE93 


1 4740 




CP 


REM 


BE6B 2002 


14750 




JR 


NZ,REF3 


BEftA 36FE 


14760 




LD 


(HL),OFEH 


BE6C El 


14770 R 


EF3 


POP 


HL 


BEfoD D7 


1 4780 




RST 


10H 


BE6E FE2C 


14790 ! 




CP 


2 ? 

* 


BE70 3ESD 


1 4800 J 




LD 


A, GOTO 


BE72 2SB5 


14810 




JR 


Z,JUMP1 


BE74 2B 


1 4920 1 




DEC 


HL 


BE75 1B9F 


14830 




JR 


REF2 


BE77 21C6BF 


14840 U 


NDEFL 


LD 


HL,TEXT3 


BE7A CD752B 


14850 




CALL 


PR I NTT 


BE7D EB 


14860 




EX 


DE,HL 


PE7E CDAFOF 


14870 




CALL 


PRZMR 


BE81 Dl 


1 4880 




POP 


DE 


BF.82 El 


14890 




POP 


HL 


BE83 E5 


1 4900 




PUSH 


HL 


BE84 D5 


14910 




PUSH 


DE 


BE85 CDA70F 


14920 




CALL 


PRZNR1 


BE88 El 


14930 




POP 


HL 


BES9 CBFE20 


1 4940 




CALL 


CR 


BEBC 1883 


14950 




JR 


REF2 


BE8E 21B5BF 


14960 P 


ACK 


LD 


HL,TEXT2 


BE91 CD752B 


14970 




CALL 


PR I NTT 


BE94 El 


14980 




POP 


HL 


BE95 Dl 


14990 




POP 


DE 


BE96 E5 


15000 




PUSH 


HL 


BE97 D5 


15010 




PUSH 


DE 


BE98 2B 


15020 




DEC 


HL 


BE99 23 


15030 P 


ACKL 


INC 


HL 


BE9A 7E 


15040 F 


ACKL1 


LD 


A, (HL) 


BE9B 23 


15050 




IMC 


HL 


BE9C B6 


15060 




OR 


(HL) 


BE9D CA3ABF 


15070 




JP 


Z,PACKE 


BEAO 23 


15080 




INC 


HL 


BEA1 5E 


1 5090 




LD 


E, (HL) 



• *t :"..'-»•«»."*) I> 



7t-i«.--"'(-' 



- :■■*£•*,>■ 
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BEA2 


"^ 


15100 




INC 


HL 


BE. A3 


56 


1511 




l.D 


D, \HL) 


REM 


-i- - 


15120 




INC 


HL 


PEA5 


E7 


15130 




EV 


<SP),HL 


BEA6 


DF 


15140 




PST 


1SH 


PEA7 


E7 


15150 




Ex 


*SF> ,HL 


PEA8 


DA7ABF 


151 60 




JP 


C , PAD E 


BEAB 


E5 


15170 




PUSH 


HL 


PEAt 


*E 


15180 


CHAP 


LD 


A, 'HL> 


BEAD 


A7 


1519m 




AND 


A 


PEAE 


2678 


152'.'0 




JF 


2 , EOL 


PEFO 


FEFF 


15210 




CP 


OFFH 


DEB2 


r^-r 


15220 




INC 


HI 


BEB3 


r> ". 


15230 




INC 


HL. 


PEB4 


28F& 


15240 




JP 


Z , CHAP 


BEF* 


2B 


15250 




DEC 


HL 


BEE7 


2B 


15260 




DEC 


HL 


PEP5 


FE20 


15270 




CP 


y ■* 


BEBA 


2824 


15280 




JR 


1 , SPACE 


EEPC 


FEOA 


152*0 




CP 


OAH 


BEBE 


2820 


15300 




JR 


: , SPACE 


BECO 


FE^3 


15310 




CP 


PEM 


BEC2 


282P 


15320 




JP 


2 , DEEPEN 


BEC4 


FEFE 


1 5330 


' * 


CP 


OF EH 


BEC6 


2826 


15340 




JP 


I, DELR 1 


BECS 


FES6 


15350 




CP 


DATA 


BECA 


283A 


15360 




JR 


2, F DAT A 


BECC 


FE3A 


15370 




CP 


« . * 

* 


BECE 


282* 


15380 




JR 


Z, COLON 


BEDO 


FE22 


15390 


cpst""' 


CP 


* M ** 


BED2 




15400 


CHAR1 


INC 


HL 


BED3 


20D7 


15410 




JR 


NZ,CHAR 


BEDS 


2P 


15420 




DEC 


HL 


BED 6 


D7 


15430 


STP1 


PST 


10H 


BED7 


A7 


15440 




AND 


A 


BEDS 


284E 


15450 




JP 


Z , EOL 


BEDA 


Do22 


15460 




SUB 


* 1* 3 


BEDC 


20F3 


15470 




JP 


NZ,STP1 


BEDE 


18F0 


15480 




JR 


C'P'STR 


BEEO 


CDE5BE 


154*0 


SPACE 


CALL 


USPACE 


BEE 3 


16C7 


155<X> 




JP 


CHAR 


BEE5 


E5 


" 15510 


USPACE 


PUS<- 


HL 


PEE 6 


D7 


15520 




RST 


K'H 


BEE^ 


Dl 


15530 




POP 


DE 


BEES 


D5 


15540 


DEL 


POSH 


DE 


PEE? 


CD61BF 


1 5550 




CALL 


DELETE 


BEEC 


El 


155*0 




POP 


HL 


BEED 


C9 


155*?0 




PET 




BEEE 




15580 


DELR i 


INC 


HL 


BEEF 


E5 


15590 


DELREM 


PUSH 


HL 


BEFO 


CD071F 


l5t>00 




CALL 


SEOL 


PEF3 


Dl 


15610 




POP 


DE 


BEF4 


CDE8BE 


15620 




CALL 


DEL 


BEF" 7 


18B3 


15670 




JR 


CHAR 


BEF* 


E5 


15640 


COLON 


PUSH 


HL 


BEFA 


D? 


15650 




RST 


ION 


BEFP 


El 


15660 




D CF 


HL 


BEFC 


FE93 


15670 




CP 


REM 


BEFE 


28E0 


15680 




JR 


Z, SPACE 


BFOO 


FEFE 


156*50 




CP 


OFEH 



***ri^*» J "iw#f 
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BF02 28DC 


15700 




JR 


Z , SPACE 


BF04 13CC 


15710 




JR 


CHAR1 


BF06 23 


15720 


PDATA 


INC 


HL 


BF07 7E * 


15730 




LD 


A, (HL) 


BFOS FE20 


15740 




CP 


> ? 


BFOA CCE5BE 


15750 




CALL 


Z , USPACE 


BFOD 2B 


15760 




DEC 


HL 


BFOE D7 


15770 




RST 


10H 


BFOF 289B 


15780 




JR 


Z,CHAR 


BF11 FE22 


15790 




CP 


? » ? 


BF13 200D 


15800 




JR 


NZ,SC11 


BF15 D7 


15810 


BS 


RST 


10H 


BF16 A7 


15820 




AND 


A 


BF17 280F 


15830 




JR 


Z,EOL 


BF19 FE22 


15840 




CP 


i id 


BF1B 20F8 


15850 




JR 


NZ,BS 


BF1D 18E7 ■'•'<- 


- 15860 




JR 


PDATA •■ * ■ 


BF1F D7 


15870 


SC 


RST 


10H 


BF20 283A 


15880 




JR 


Z,CHAR 


BF22 FE2C 


15890 


sen 


CP 




BF24 20F9 


15900 




JR 


NZ,SC 


BF26 18DE 


15910 




JR 


PDATA 


BF28 Dl 


15920 


EOL 


POP 


DE 


BF29 DF 


15930 




RST 


13H 


BF2A C299BE 


15940 




JP 


NZ,PACKL 


BF2D IB 


15950 




DEC 


DE 


BF2E IB 


15960 




DEC 


DE 


BF2F IB 


15970 




DEC 


DE 


BF30 IB 


15980 




DEC 


DE 


BF31 D5 


15990 




PUSH 


DE 


Br^ji *H ii> 


16000 




INC 


HL 


BF33 CD61BF 


16010 




CALL 


DELETE 


BF36 El 


16020 




POP 


HL 


BF37 C39ABE 


1 6030 




JP 


PACKL1 


BF3A Dl 


16040 


PACKE 


POP 


DE 


BF3B 2AA440 


16050 




LD 


HL, CTEXTA) 


BF3E 2B 


16060 




DEC 


HL 


BF3F 23 


16070 


DELREF 


INC 


HL 


BF40 7E 


16080 




LD 


A, (HL) 


BF41 23 


16090 




INC 


HL 


BF42 B6 


16100 




OR 


(HL) 


BF43 CA55BF 


16110 




JP 


Z , END 


BF46 23 


16120 




INC 


HL 


BF47 23 


16130 




INC 


HL 


BF48 23 


16140 




INC 


HL 


BF49 7E 


16150 




LD 


A, (HL) 


BF4A FEFE 


16160 




CP 


OFEH 


BF4C 2002 


16170 




JR 


NZ,NEXTL1 


BF4E 3693 


16180 




LD 


(HL) ,REM 


BF50 CD071F 


16190 


NEXTL1 


CALL 


SEOL 


BF53 18EA 


1 6200 




JR 


DELREF 


BF55 CD74BF 


16210 


END 


CALL 


LEN 


BF58 212919 


16220 




LD 


HL,TEXT6 


BF5B CD752B 


16230 




CALL 


PR I NTT 


BF5E C3E81A 


16240 




JP 


ENDML 


BF61 B5 


16250 


DELETE 


PUSH 


DE 


BF62 EB 


16260 




EX 


DE,HL 


BF63 2AF*40 


16270 




LD 


HL, (VARA) 


BF66 A7 


16280 




AND 


A 


BF67 ED52 


16290 




SBC 


HL,DE 



;M-*.«f Ntws^j'r*- 1 !* 1 
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BF69 4D 


1 6300 




LD 


C,L 


BF6A 44 


16310 




LD 


B,H 


BF6B EB 


16320 




EX 


DE,HL 


BF6C Dl 


16330 




FOP 


DE 


BF6B EBBO 


16340 




LDIR 




BF6F ED53F94 


J 6350 




LD 


(VARA) ,DE 


BF73 C9 


1 6360 




RET 




BF74 E5 


16370 


LEN 


PUSH 


ML 


BF75 21E4BF 


1 6380 




LD 


HL,TEXT4 


BF78 CD752B 


16390 




CALL 


PR I NTT 


BF7B 2AF940 


1 6400 




LD 


HL, (VARA) 


BF7E ED5BA440 16410 




LD 


DE, (TEXTA) 


BF32 37 


16420 




SCF 




BF83 ED52 


16430 




SBC 


HL , DE 


BF85 2B 


16440 




DEC 


HL 


BFB6 CDAFOF 


16450 




CALL 


PRZNR 


BF89 21F8BF 


16460 




LD 


HL, TEXTS 


BF3C CD752B 


16470 




CALL 


PR I NTT 


BF8F El 


1 6480 




POP 


HL 


BF90 C9 


16490 




RET 




BF91 5A 


16500 


TEXT1 


BEFM 


* Zei 1 enre+erenzers werden ersnittel t. 


BFB3 OD 


16510 




DEFB 


ODH 


BFB4 00 '"' 


1 6520 




DEFB 


t'\ ■ - "'. •*•'.'■ ,■■':; ..." .-v ' . «t:». • '! , >'-^t»»ij '. ..-- ■);' 


BFB5 50 


1 6530 


TEXT2 


DEFM 


' Pscken beginnt . ? 


BFC4 OD 


16540 




DEFB 


ODH 


BFC5 00 


1 6550 




DEFB 





BFC6 42 


1 6560 


TEXT3 


DEFH 


" Bezuq aut undetinierte Zeile ' 


BFE3 00 


16570 




DEFB 


(\ 


BFE4 50 


16580 


TEXT4 


DEFH 


' Programm er-fordert * 


BFF7 00 


16590 




PEFB 





BFFe 20 


16600 


TEXT5 


DEFM 


' Bytes' 


BFFE OD 


16610 




DEFB 


ODH 


BFFF 00 


16620 




DEFB 


a 


B67C 


16630 




END 


I NIT 


00000 TOTAL 


ERRORS 








01403 TEXT 


APEA BY^ 


^ES LEFT 
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2.3.1 Feldauf zeichnung ARRAY 



ARRAY ermoglicht das schnelle Aufzeichnen und Laden von 
Feldern auf Kassette Oder Diskette durch einen einzigen 
Bef ehl , uobei fur das ganze Feld nur ein Header auf 
Kassette auf gezeichnet uird. 



Funkt ionsueise 



ARRAY schreibt numer ische Felder uie sie im Speicher stehen 
auf Kassette bzu . Diskette . Bei Stringfeldern uird jeder 
String - angef uhrt von seiner Lange - in der Rei henf olge , 
in der die Strings im Feld angeordnet sind , auf gezeichnet . 
Die Betr i ebssystemanb i ndung ist ahnl ich uie bei PACK . 

Der Auf ruf : 

** Kassettenversion : 

ARRAY stel It zuei neue Bef eh le zur Uerf ugung , die 
f ol gender mafl en auf geruf en uerden : 

FIELD PRINT #-1 , A<20 ) > B$C20 ) , CC 18 , 10 > , . . . 

FIELD INPUT #-1 > AC20),B$C20),CC10> 10), . . . 

Durch den FIELD PRINT-Befehl uerden die Feldelemente 
AC0) . .A<!20> > B*C0..20>, C<0>0> . .CC 10, 10) auf Kassette 
auf gezeichnet . Die Variablenl iste kann bei iebig lang sein. 
Bei eindimensionalen ARRAY kann auch nur ein Teil 
auf gezei chnet uerden : 

18 Din AC20) 

100 FIELD PRINT #-l,A<10) 

Hier uerden nur die ersten 1 1 Elemente auf zei chnet * 
Bei mehrdimensionalen Feldern i st es zuar auch mogl ich nur 
einen Tei 1 aufzuzeichnen, aber da immer der Bereich im 
Speicher zuischen FeldC0 ,8 , . . . ,0) und FeldCXl >X2 , . . . , XN) 
auf gezei chnet uird , kann im a 1 lgemeinen ni cht da von 
ausgegangen uerden , da0 die Elemente 
Feld<0. .XI ,8 . .X2, . . . ,0 . .XN) darunter sind. 

Hit der F I ELD I NPUT-Anuei sung miissen genausoviele El emente 
ei nge 1 esen uerden , uie auf gezeichnet uurden , ansonsten 
erfolgt ein BS-Error . 

Sol len mi t ei nem FIELD- INPUT Str i ngf elder gel esen uerden , 
so uerden zuerst diese Felder gel bscht und dann der 
Stringspace von uberf 1 Lissi gen Strings bereinigt urn fur die 
zu lesenden Strings genligend Platz zu schaffen. Da dies 
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unter Umstanden 1 anger e Zei t in Anspruch nehmen kann , ui rd 
bei Beginn des eigentlichen Ladevor gangs ei n ' S ' in der 
oberen rechten Bi ldschirmecke angezeigt . Sol 1 te sich spater 
beim Laden heraustel len, daB der PI atz n icht ausreicht , 
uird das Laden mi t e i nem OS-Error abgebrochen . 

Beim Laden uird bei jeder Null bzu. bei jedem neuen String 
der Stern in der oberen rechten Ecke umgeschal tet . 



** Diskettenversion 



ARRAY stel It zuei neue Bef ehle zur Uerf Ugung , die 
f ol gender maBen auf geruf en uerden : 

FIELD PRINT #1 , A C20 ) , B$< 20 ) , CC 18 , 10 ) , . . . 

FIELD INPUT #1 ,AC20) ,B*C20) ,CC10, 16) , , . . 



*t .i r i 



Durch den FIELD 



PRINT-Befehl 



uerden die Feldelemente 



A<0)..A<20), B*C0..20), CC0,0) . .CC10, 10) auf Diskette (File 

1 > aufgezeichnet . Die Var i ablenl iste kann bei iebig lang 

sei n . Bei e i nd i mens ion a len ARRAY kann auch nur ein Teil 
aufgezeichnet uerden : 



10 Din AC20) 



100 FIELD PRINT #1,AC10) 

Hier uerden nur die ersten 11 Elemente aufzeichnet. 
Bei mehrd i mens iona len Fel der n ist es zuar auch mogl ich nur 
einen Tei 1 aufzuzeichnen , aber da immer der Bereich im 
Speicher zuischen Feld<0 , 8 , . . . ,8 > und FeldC XI , X2 , . . . , XN) 
aufgezeichnet ui rd , kann im al lgemei nen nicht da von 
ausgegangen uerden , daB die Elemente 
FeldC0 . .XI ,0. .X2, . . . ,0* .XN) darunter sind. 



*f**tl^ ** 



Hit der FIELD INPUT-Anuei sung mussen genausoviele Elemente 
eingelesen uerden , ui e aufgezeichnet uurden, ansonsten 
erf olgt ein BS-Error . Rei cht bei Zeichenkettenf eldern der 
PI atz im Str ingspace n icht aus „ uird der Ladevor gang mi t 
OS-Error abgebrochen. Ist ein Garbage-Collect notuendig, 
kann es v/orkommen > daB das Laufuerk fur diese Zei t anha 1 1 . 
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00100 


;ASEG 




BE6F 




00110 


ORG 


0BE6FH 


BE6F 


2A7D41 


00120 INIT 


LD 


HL, (FIELDV- 


BE72 


22SABE 


00130 


LD 


'AAZ*1»,HL 


BE75 


21?EBE 


00140 


LD 


HL,AAY 


BE^8 


227D41 


00150 


LD 


(FIELDV J, HL 


BE7B 


C3191A 


00 1 60 

00170 


JP 

» 


1A19H 


BE7E 


FE89 


00180 AAV 


CP 


INPUT 


BE80 


CAODBF 


00190 


JP 


Z,ABI 


BE83 


FEB2 


00200 


CP 


PRINT 


BE85 


2805 


00210 


JR 


7., ABA 


BE8* 7 


2B 


00220 


DEC 


HL 


BES8 


D7 


00230 


RST 


10H 


BE3« 


C 30000 


00240 AAZ 


JP 





BE8C 


D7 


00250 ABA 


RST 


10H 


BE8D 


C0A935 


00260 


CALL- 


I N I TW - , 


BE90 


2B 


00270 


DEC 


HL 


BE9i 


010000 


00280 ABB 


LD 


BC , 


BE C5 4 


CB6000 


00290 


CALL 


DELAY 


BE9? 


CD 6000 


00300 


CALL 


BELAY 


BE9A 


D7 


00310 


RST 


10H 


BE9B 


CDDOBF 


00320 


CALL 


ABF 


BE*?E 


^B 


00330 


LD 


A,E 


BE9F 


CD IF 02 


00340 


CALL 


WRITEB 


BEA2 


^A 


0»"'350 


LD 


A,D 


BEA3 


CD IF 02 


00360 


CALL 


WRITEB 


BEA6 


3AAF40 


00370 


LD 


A, (TyPX> 


BEA9 


FE03 


00380 


CP 


_> 


BEAB 


204° 


00390 


JR 


NZ,ABG 


BEAD 


E5 


00400 


PUSH 


HL 


BEAE 


C5 


00410 


PUSH 


BC 


BEAF 


D5 


00420 


PUSH 


DE 


BE BO 


210000 


00430 


LD 


HL.O 


BEB3 


OA 


00440 ABC 


LD , „ 


A, (DC; 


BEB4 


85 


00450 


ADD 


A,L 


BEB5 


6F 


00460 


LD 


L,A 


BEB6 


~rz 


00470 


LD 


A,H 


BEE? 


CEOO 


00480 


ADC 


A,0 


BEP* 


fa7 


0<"i490 


LD 


H,A 


BEBA 


IB 


00500 


DEC 


OE 


BEBB 


IP 


0053 


DEC 


DE 


BEBC 


IB 


00520 


DEC 


DE 


BEBB 


03 


00530 


INC 


BC 


BEBE 


03 


•"'0540 


INC 


BC 


BEBF 


03 


00550 


INC 


BC 


BECO 


/ H 


00560 


LD 


A,D 


BECJ 


B3 


00570 


OR 


E 


BEC2 


20EF 


00580 


JR 


NZ,ABC 


BEC4 


"'D 


00590 


LD 


A,L 


BEC5 


CD IF 02 


00600 


CALL 


WRITEB 


BEC3 


7C 


00610 


LD 


A,H 


BECO 


CD1F02 


00620 


CALL 


WRITEB 


BECC 


DJ 


00630 


POP 


DE 


PECB 


El 


00640 


FOP 


HL 


BECE 


D5 


00650 ABD 


F'USH 


DE 


BECF 


5£ 


00660 


LD 


D, <HL> 


BE DO 


*• ^' 


00670 


THE 


HL 


BED1 


4E 


00680 


LD 


C, 'HD 


BED2 


-i~' 


00690 


inc 


HL 
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BED3 


4- 


00700 


LD 


B, 'HL) 


BFD4 


^*" T 


00710 


]NC 


HL 


BEDS 


7A 


00720 


L D 


A,D 


BEDt. 


CD IF 02 


00730 


CALL 


WMTEB 


BED" 


A7 


00740 


AND 


A 


BEBA 


280E 


00750 


JP 


Z, ABF 


BEDC 


OA 


00760 ABE 


LD 


A, (BC/ 


BEDD 


CDJF02 


00770 


CALL 


WPITEP 


BEEO 


CDCABF 


00780 


CALL 


BREA* 


BEE3 


C2C4BF 


Cm \iac\ 


JP 


HZ, RET 2 


BEE6 


'"'3 


'!*S 00 


INC 


BC 


BEE7 


15 


008 JO 


DEC 


D 


BEE8 


20F2 


00820 


JR 


HZ, ABE 


BEL A 


DJ 


00830 ABF 


POP 


DE 


BEEB 


IB 


00840 


DEC 


DE 


BEEC 


IB 


00850 


DEC 


DE 


BEED 


IB 


008 60 


DEC 


DE 


BEEE. 


7A 


00870 


LD 


A,D 


BEEF 


B3 


00380 


OR 


E 


BEFO 


20DC 


008 Q 


JR 


NZ,ABD 


BEF2 


El 


00° 00 


POP 


Hl 


BEF3 


C305BF 


00910 


JP 


ABH 


BEFfc 


'.'A 


00920 ABG 


LD 


A, (BO 


BEF" 


CD1F02 


00930 


CALL 


WRITEEt 


BEFA 


CDCABF 


00940 


CALL 


BPEA^ 


BEFD 


CIC6BF 


00950 


JP 


HZ, RET 


BFOO 


03 


00960 


INC 


BC 


BFOl 


IB 


00970 


DEC 


DE 


BF02 


7A 


00930 


LD 


A,D 


BF03 


B3 


00 Qt ?0 


OP 


r 


BF04 


2OF0 


1 000 


JR 


NZ,ABG 


BF06 


7E 


01010 APH 


LD 


A, tHL) 


BF07 


FE2C 


01020 


CR 


* * 


BFO* 


CA91BE 


01030 


JP 


Z,ABB 


BFOC 


C? 


01040 


RET 




BFOD 


CD282S 


01050 ABI 


CALL 


2828H 


BFIO 


D7 


01060 


RST 


10H 


BF11 


CDB535 


01070 


CALL 


35B5H 


BF14 


2B 


01080 


DFC 


HL 


BF15 


E5 


01090 


PUSH 


HL 


BF16 


AF 


onoo .„, . 


XOP 


A 


BF17 


32FFBF 


01 HO 


LD 


'XL AG) ,A 


BF1A 


D7 


01120 ABJ1 


RST 


10H 


BF1B 


CDDOBF 


01130 


CALL 


ABR 


BF1E 


3AAF40 


01140 


LD 


A, fTYPXJ 


BF21 


FE03 


01150 


CP 


"■; 


BF23 


200B 


01160 


JR 


NZ,ABP1 


BF25 


32FFBF 


01170 


LD 


' FLAG » , A 


BF28 


AF 


01180 AB* 1 


>0R 


A 


BF29 




011*»0 


LD 


■BC) ,A 


BF2A 


03 


01200 


INC 


BC 


BF2B 


IB 


01210 


DEC 


DE 


BF2C 


7A 


01220 


LD 


A,D 


BF2D 


B3 


01230 


OP 


E 


BF2E 


20F8 


01240 


JP 


NZ,AB> 1 


BF30 


7E 


01250 ABPJ 


LD 


A, 'HD 


BF3l 


FE2C 


01260 


CP 


s 


BF33 


CA1ABF 


01270 


JP 


Z,ABJ1 


BF36 


3AFFBF 


01280 


LD 


A, (FLAG) 


BF39 


A7 


01290 


AND 


A 
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BF3A 


C4Et2° 


01300 


Chll. 


tL , CO-lLEl 


BF3D 


.■E.D ... 


01710 


LP 




BF3F 


722744 


01320 


LP 


■442"*H) ,A 


PF42 


CD4C>2 


01330 


CALL. 


iNHR 


BF45 


El 


01340 


POP 


HL 


PF46 


L? 


01350 ABJ 


RST 


i oH 


BF47 


CPDOBF 


01360 


CALL 


ABP 


BF4A 


CDEP01 


01 3"* 


CALL 


PEAPB 


BF4D 


BB 


01380 


CP 


E 


BF4E 


C23D2^ 


01390 


JP 


N2,?SEPP 


BF51 


CBEDOl 


01400 


CALL 


REAPB 


BF54 


BA 


0J410 


CP 


D 


BF55 


C23B27 


01420 


JP 


N2,ESERP 


BF58 


3AAF40 


01430 


LD 


A, >T;'F'U 


BF5B 


FE07 


1 440 


CP 




BF 51' 


704 A 


0] 450 


JR 


n:\abf- 


BF5F 


E5 


Ol4sO """ 


PUSH 


HL 


BF60 


CDEPOJ 


01470 


CALL 


RE API' 


BF63 


6F 


1 490 


LB 


1 r 


BFi4 


'.PEP01 


014 q m 


CALL 


REAI'B 


BFtT 


6"? 


1 500 


LD 


H,M 


PF*8 


CDE8BF 


01510 


CALL 


AB'~ 


BF6B 


D2FABF 


01520 


JP 


FC-'iBr 


BF-tt! 




01570 


LD 


L,C 


BF6F 


60 


1 540 


LD 


H,B 


BF "^ 


CPE401 


01550 ABM 


CALL. 


Blink 


BF^3 


D5 


01560 


PUSH 


D£ 


BF74 


f DEI'Oi 


015^0 


CALl. 


PEADD 


BF7" 7 


77 


01590 


LP 


(HL»,A 


BF"8 


*-^^r 


olS^O 


INC 


HL 


BF 7 V 


E5 


01600 


PUSH 


HL 


BF"'A 


2AP640 


01610 


LD 


HL, 'STRZGJ 


EF7D 


4F 


01620 


LD 


l , A 


BF7F 


OfcOO 


01630 


LP 


8,0 


PFS-.t 


A7 


0U>40 - • - ■ 


AND 


ri 


BF81 


EP42 


01650 


SBC 


HL,BC 


PF83 


22B640 


1 660 


LD 


'STRLG.>,hL 


Bf So 


*-*"!- 


01670 


INC 


HL 


BFS7 


EB 


01t)30 


E* 


DE,HL 


BF88 


El 


Olij^o 


POP 


HL 


BFS? 


73 


01 7 00 


LC 


ihLi ,E 


BF 9 A 




01710 


INC 


HL 


BFBB 


-7 -I 


01720 


LD 


«HL),D 


FFSt 


*, -J 


01730 


INC 


HL 


BF8D 


A7 


01740 


AND 


A 


BFBE 


2B0E 


01 750 


JP 


Z,ABO 


BF90 


CBEDOl 


01760 ABN 


CALL 


PEABB 


BF9 3 


12 


01770 


LD 


'.L'Ei ,A 


BF94 


CDCABF 


'H780 


CALL 


BREAK 


BF'*"> 


C2C4BF 


01 ?90 


JP 


NI,RET2 


BF9A 


13 


0180'.' 


INC 


DE 


PF C 'B 


OD 


01B10 


DEC 


C 


BF°C 


20F2 


01820 


JR 


NZ,ABN 


BF*E 


LU 


-.'1830 ABO 


POP 


de: 


BF°F 


IB 


01940 


DEC 


DE 


PFAO 


IB 


01850 


DEC 


DE 


BFAJ 


IB 


0186" 


DEC 


DE 


BFA2 


7B 


01B""0 


LD 


A,E 


BFA3 


B2 


1 88 


OR 


D 


BFA4 


20C A 


01 890 


JR 


HZ , ABM 



.^ ,ltl&,\*-+- t »|^ -r *^ » 



<a# : *ir**.\' • ' 1 . "-.v*- w*- 
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BFA6 El 


01900 




POP 


HL 


BFA7 1814 


01910 




J ft 


ABQ 


BFA9 CDEDC1 


01920 


ABP 


CALL 


READB 


BFAC 02 


01930 




LD 


(BC) ,A 


BFAD A7 


01940 




AND 


A 


BFAE CCE401 


01950 




CALL 


2, BLINK 


BFB1 CDCABF 


01960 




CALL 


BREAK 


BFB4 C2C6BF 


1 970 




JP 


NZ,RET 


BFB7 03 


019SO 




INC 


BC 


BFB8 IB 


01990 




DEC 


DE 


BFB? 7A 


02000 




LD 


A,B 


BFBA B3 


02010 




OR 


E 


BFBB 20EC 


02020 




JR 


NZ,ABP 


BFBD 7E 


02030 


ABQ 


LD 


A, (HL) 


BFBE FE2C 


02040 




CP 


4 


BFCO CA46BF 


02050 




JP 


Z,ABJ 


BFC3 C9 


02060 




RET 




BFC4 Dl 


02070 


RET 2 


POP 


DE 


BFC5 El 


02080 




POP 


HL 


BFC6 2AE640 


02090 


RET 


LD 


HL, (40E6H) 


BFC9 C9 


02100 




RET 




BFCA 3A40F8 


02110 


break: 


LD 


A, (0F840H) 


BFCD CB57 


02120 




BIT" . 


■*-! " .. .. 


BFCF C9 


02130 




RET 




BFDO CB0B26 


02140 


ABR 


CALL 


SVAR 


BFD3 E5 


02150 




PUSH 


HL 


BFD4 2AFB40 


02160 




LD 


HL, CARRTAB) 


BFD7 ED52 


02170 




SBC 


HL,DE 


BFD9 D2F60A 


02180 




JP 


NC,TMERR 


BFDC 3AAF40 


02190 




LD 


A, <TYPX) 


BFDF 6F 


02200 




LD 


L,A 


BFEO 2600 


02210 




LD 


H,0 


BFE2 19 


02220 




ADD 


HL,DE 


BFE3 ED42 


02230 




SBC 


HL,BC 


BFE5 EB 


02240 




EX 


DE,HL 


BFE6 El 


02250 




POP 


HL 


BFE7 C9 


02260 




RET 




BFE8 B5 


02270 


ABS 


PUSH 


DE 


BFE9 E5 


02280 




PUSH 


HL 


BFEA 2AD640 


02290 




LD 


HL, (STRZG) 


BFED A7 


02300 


«f-Tt "t ^ ■ ** H 


, AND 


A 


BFEE ED5BA040 


i 02310 




LO 


DE, (3TRSPC) 


BFF2 ED52 


02320 




SBC 


HL,DE 


BFF4 EB 


02330 




EX 


DE,HL 


BFF5 13 


02340 




INC 


DE 


BFF6 El 


02350 




POP 


HL 


BFF7 DF 


02360 




RST 


18H 


BFF8 Dl 


02370 




POP 


DE 


BFF9 C9 


02380 




RET 




BFFA 1E1A 


02390 


ABT 


LD 


E, OSERR 


BFFC C3A219 


02400 




JP 


ERROR 


BFFF 00 


02410 


FLAG 


DEFB 





001 A 


02420 


OSERR 


EQU 


001 AH 


0060 


02430 


DELAY 


EQU 


0060H 


0089 


02440 


INPUT 


EQU 


0089H 


00B2 


02450 


PRINT 


EQU 


00B2H 


01E4 


02460 


BLINK 


EQU 


01E4H 


01 ED 


02470 


READB 


EQU 


01EDH 


021F 


02480 


WRITEB 


EQU 


021FH 


35A9 


02490 


INITW 


EQU 


35A9H 



S.'i. ■.!•-.. f. 
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02 4C 


0250C 


IIMITR 


EQU 


024CH 


OAF 6 


02510 


TMERR 


EQU 


0AF6H 


19A2 


0252>: 


ERROR 


EQU 


19A2H 


260D 


02530 


SVAR 


EQU 


260DH 


273D 


0254C 


BSERR 


EQU 


277DH 


2SE6 


0255C 


COL LEG 


EOU 


2BE6H 


40A0 


0256C 


STRSPC 


EQU 


40A0H 


40AF 


0257C 


TYF'X 


EOU 


40AFH 


40D6 


0258*: 


STRZG 


EQU 


40D6H 


40FB 


0259<: 


ARRTAB 


EQU 


40FBH 


417D 


0260C 


> FIELDV 


EQU 


417DH 


BE6F 


026 K 




END 


INIT 


00000 


TOTAL ERRORS 








31585 


TEXT AREA BVTE5 LEFT 
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00100 




; ASEG 




BE^D 




00110 




ORG 


0BE9DH 






00120 




a 




BE9D 


2A7D41 


00130 


I NIT 


LD 


ML, (FIELDV) 


BEAO 


22B3BE 


00140 




LD 


(AAZ + U ,HL 


BE A 3 


21ACBE 


00150 




LD 


HL,AAV 


BEA6 


227D41 


00160 




LD 


(FIELDV),HL 


BEA9 


C3191A 


00170 
00180 




OP 

■ 


1A19H 


41CA 




00190 


WBISK. 


EQU 


4ICAH 


41BE 




00200 


WDISKE 


EQU 


41BEH 


032A 




00210 


DUTCH 


EQU 


032AH 


0013 




00220 


INCHW 


EQU 


0013H 


C7BD 




00230 
00240 


BUFFER 


EQU 

* 
•j 


0C7BDH 


BEAC 


FE89 


00250 


AAY 


CP 


INPUT 


BEAE 


CA23BF 


00260 




JP 


Z,ABI 


BEBl 


FEB2 


00270 




CP 


PRINT 


BEB3 


280S 


00 280 




JR 


2 , ABA 


BEB5 


2B 


00290 




DEC 


HL 


BEB6 


D7 


00300 




RST 


10H 


BEB7 


C 3 0000 


00310 


AAZ 


JP 





BEBA 


D7 


00320 


ABA 


RST 


10H ,*>, 


BEBB 


CDCA41 


00330 




CALL 


WDISK 


BEBE 


2B 


00340 




DEC 


HL " 


BEBF 


D7 


00350 


ABB 


RST 


10H 


BECO 


CDBBBF 


00360 




CALL 


SARRAY 


BEC3 


7B 


00370 




LD 


A,E 


BEC4 


CD2A03 


00380 




CALL 


DUTCH 


BEC7 


7A 


00390 




LD 


A,D 


BEC8 


CD2A03 


00400 




CALL 


DUTCH 


BECB 


3AAF40 


00410 




LD 


A, (TYPX) 


BECE 


FE03 


0042(1' 




CP 




BEDO 


2043 


00430 




JR 


NZ,ABG 


BED2 


E5 


00440 




PUSH 


HL 


BEB3 


C5 


00450 




PUSH 


BC 


BED4 


D5 


00460 




PUSH 


DE 


BEDS 


210000 


00470 




LD 


HL,0 


BEB9 


OA 


00480 


ABC 


LD 


A, (BC) 


BED9 


85 


00490 




ADD 


A,L 


BEDA 


6F 


00500 




LD 


t-.A .*., ; ,. 


BEDB 


7C 


00510 




LD 


A,H 


BEDC 


CEOO 


00520 




ADC 


A,0 


BEDE 


67 


00530 




LD 


H,A 


BEDF 


IB 


00540 




DEC 


DE 


BEEO 


IB 


00550 




DEC 


DE 


BEE1 


IB 


00560 




DEC 


DE 


BEE2 


03 


00570 




INC 


BC 


BEE3 


03 


00580 




INC 


BC 


BEE4 


03 


00590 




INC 


BC 


BEES 


7A 


00600 




LD 


A,D 


BEE6 


B3 


00610 




OR 


E 


BEE7 


20EF 


00620 




JR 


NZ , ABC 


BEE9 


7D 


00630 




LD 


A,L 


BEEA 


CD2A03 


00640 




CALL 


DUTCH 


BEED 


7C 


00650 




LD 


A,H 


BEEE 


CD2A03 


00660 




CALL 


DUTCH 


BEF1 


Dl 


00670 




POP 


DE 


BEF2 


El 


00680 




POP 


HL 


BEF3 


D5 


00690 


ABD 


PUSH 


DE 
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BEP4 


56 


00 "'''"'O 


LD 


D, ■HL' 


BEF5 


23 


00 "'1'"' 


INC 


HL 


BEFd, 


4E 


00720 


LB 


C, .HL» 


BEF" 


2 j 


00^3'"' 


INC 


HL 


E€FS 


46 


ijO" f 4r_") 


LD 


B, 'HL' 


BEE* 


t; 


00750 


INC 


HL 


BEFA 


7A 


00~'60 


LD 


A,r 


BEFP 


CD2A07. 


u07 7 


CALL 


DUTCH 


BFFE 


A7 


00780 


AND 


A 


BEFF 


2808 


( jn*70f*) 


JR 


Z,A£<F 


BF01 


OA 


•.-08<X' ABE 


LP 


A, 'BO 


BF02 


CB2A07 


'"'OBJ 


CALL 


DUTCH 


BF05 


03 


0'"*82< * 


INC 


BC 


BF06 


15 


0'"'87O 


DEC 


D 


BF07 


20F3 


00*r40 


JR 


NZ , ABE 


BF09 


ni 


-.'0850 ABF 


FOP 


DE 


BF '"'A 


IB 


■ »OSt)0 


DEC 


DE r ' 


BFOB 


IB 


008"0 


DEC 


DE 


BFOC 


IB 


00330 


DEC 


DE 


PFOD 


~H 


•j0^ c, 


LD 


A,D 


BFOE 


B7 


00900 


OR 


E 


BF OF 


20E2 


00 Q l f > 


JR 


N2 , ABD 


BF1 1 


E; 


0v920 


POP 


HL 


PFi2 


C71FBF 


00° 3'"' 


JP 


ABH 


BF15 


■>A 


00940 ABG 


LD 


A, i E'C ' 


PFlfc 


CD2A03 


Of.QFu 


CALL 


DUTCH 


BF19 


'"'3 


00°60 


INC 


BC 


P^IA 


JP 


009/0 


DEC 


DE 


BFlB 


7A 


0''»980 


LD 


A,D 


BF1C 


B3 


00 l3O 


OR 


E 


BF1D 


20F6 


1 OoO 


JR 


fL , AEO 


BF 1 F 


~'E 


0J01-> ABH 


LD 


A, 'Hl) 


H> 20 


FE2C 


0J020 


C p 




bf::2 


i APE BE 


0107'.' 


JP 


Z , ABP 


BF25 


C 3BE4 1 


it i rj40 


JP 


WDIrffc 


BF2S 


CD2828 


■"'1050 APT 


ChLL 


2E1SH 


BF2B 


LD&DC*' 


OlOi'"' 


CALL 


BUFFER 


BF2E 


r_r 


it 1 i_v~' i_i 


RST 


8H 


BF2F 


*:C 


Oiuso 


DEFB 




BF70 


E5 


' ) [ <~\^>n 


PL'SH 


HL 


BF31 


210200 


01 1 00 


LD 


Hi, 2 


BF74 


0° 


oj no 


ADD 


HL.BC 


BF35 


22FEBF 


1120 


LD 


(FCB>,HL 


bf:8 


FJ 


Oil 7''> 


POP 


HL 


BF"*' 


2B 


01140 


DEC 


HL 


BF7A 


D7 


■M'5'. 1 APJ 


RE 7 


K>H 


BF3B 


CDBBBF 


Oil 60 


CALL 


EARRhi 


PF3E 


CDEABF 


0] 170 


CALL 


RE^DP 


BF41 


BB 


01 ISO 


CP 


E 


BF42 


C 27P2" 7 


OJ 19" 


JP 


n: , :<sfrf 


BF45 


CBEABF 


J 200 


CALL 


READB 


PF4P 


BA 


01210 


CF' 


T. 


BF4^ 


C23D27 


•j 1220 


JP 


N7,B=ERR 


BF4C 


I'MAF^O 


03 270 


LD 


A, 'TyPX* 


BF4F 


FE03 


'.'124'"'' 


CP 


—t 


PF51 


205 T 


} 250 


J c ' 


m , ABF 


bf?-; 


E5 


'"' 1 2 i-0 


PUSH 


HL 


BF 54 


CDEABF 


i"i 1 2 / '.» 


CALL 


PE A"P 


BF5^ 


6F 


0125" ' 


LD 


L.ri 


PF5B 


CDEABF 




Chi L 


PEAL'D 



■*•"»**' W't C J - i'l*- 



f i *i--( f * 
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BF5B 67 


1 300 


LD 


H,A 


BF5C CDD3BF 


0131 


CALL 


ABS 


BF5^ 383 7 


01320 


JR 


C.ABL 


BF61 C5 


01330 


PUSH 


BC 


BF62 B5 


01340 


PUSH 


DE 


BF63 AF 


01350 ABK 


>;0R 


A 


BF64 02 


01360 


LD 


(BC) ,A 


BF65 03 


01370 


INC 


BC 


BF66 IB 


01380 


DEC 


DE 


BF67 7A 


01390 


LD 


A,D 


BF68 B3 


1 400 


OR 


E 


BF69 20FS 


01410 


JR 


NZ,ABK 


BF6B E5 


01420 


PUSH 


HL 


BF6C CDE628 


01430 


CALL 


COLLEC 


BF6F El 


01440 


FOP 


HL 


BF70 Dl 


01450 


POP 


DE 


BF71 CDD3BF 


01460 


CALL 


ABS 


BF74 CI 


0)470 


POP 


BC 


BF75 D2E5BF 


01480 


JP 


NC,ABT 


BF78 69 


01490 ABL 


LD 


L,C 


BF79 60 


01500 


LD 


H,B 


BF7A D5 


015 iO ABM 


PUSH 


DE 


BF7B CDEABF 


01520 


CALL 


READB 


BF7E 77 


01530 


LD 


(HL>,A 


BF7F 23 


01540 


INC 


HL 


BF80 E5 


01550 


PUSH 


HL 


BF81 2AD640 


01560 


LD 


HL, (STRZG't 


BF84 4F 


01570 


LD 


C,A 


BF85 0600 


01580 


LD 


B,0 


BF87 A7 


01590 


AND 


A 


BF88 ED42 


01600 


SBC 


HL,BC 


BF8A 22D640 


01610 


LD 


(STRZG) ,HL 


BF8D 23 


01620 


INC 


HL 


BF8E EB 


01630 


EX 


DE,HL 


BF8F El 


01640 


POP 


HL 


BF90 73 


01650 


LD 


(HL) ,E 


BF91 23 


01660 


INC 


HL 


BF92 72 


01670 


LD 


<HL),D 


BF93 23 


01680 


INC 


HL 


BF94 A7 


01690 


AND 


A 


BF95 2808 


1 700 


JR 


Z,ABO 


BF97 CDEABF 


01710 ABM 


CALL 


READB 


BF9A 12 


01720 


LD 


(DE) ,A 


BF9B 13 


01730 


INC 


DE 


BF9C OB 


01740 


DEC 


C 


BF9D 20F8 


01750 


JR 


NZ , ABN 


BF9F Dl 


01760 ABO 


POP 


DE 


BFAO IB 


01770 


DEC 


DE 


BFA1 IB 


01780 


DEC 


DE 


BFA2 IB 


01790 


' DEC 


DE 


BFA3 7B 


01800 


LD 


A,E 


BFA4 B2 


01810 


OR 


D 


BFA5 20D3 


01820 


JR 


NZ,ABM 


BFA7 El 


01830 


POP 


HL 


BFA8 180A 


01840 


JR 


ABQ 


BFAA CDEABF 


01850 ABP 


CALL 


READB 


BFAD 02 


01860 


LD 


(BC) ,A 


BFAE 03 


01870 


INC 


BC 


BFAF IB 


01880 


DEC 


DE 


BFBO 7A 


01890 


LD 


A,D 



h i*' '.~$V ' -Si, .Sit 



^::i r Lv.i. -tv"*- 
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BFB1 B3 


01900 




OP 


E 


RFB2 20F6 


019 10 




JP 


MZ.hBF 


BFB4 ~E 


0192'"' 


ABO 


LD 


A, 'HL' 


PFB5 FE2C 


01 Q 3o 




CP 




BFB7 CA3ABF 


01940 




JP 


Z,hBJ 


BFBA C* 


01950 




RET 




BFBB CD0D26 


01960 


SARRAV 


CALL 


svar 


BFBE E5 


01970 




PUSH 


HL 


BFBF 2AFB40 


01980 




LD 


HL, <ARPTAB> 


B C "C2 ED52 


OJ 9 Q 




SBC 


HL,DE 


BFC4 D2F60A 


02000 




JP 


NC.TMEPR 


BFC 7 3AAF40 


02010 




LD 


A, -Tt'PjP 


BFCA 6F 


02020 




LD 


L,h 


BFCB 2600 


02030 




LD 


H,0 


BFCD 1 Q 


02040 




ADD 


HL,DE 


BFCE ED42 


02050 




SBC 


HL,BC 


BFDO EB 


02060 




EX 


BE,HL 


BFD1 El 


02 70 




POP 


HL 


BFD2 C9 


02030 




RET 




BFD3 05 


02090 


ABE 


PUSH 


DE 


BFD4 E5 


02K>0 




PUSH 


HL 


RFD5 2AD640 


02110 




LD 


HL, iSTPZG) 


BFB8 A7 


02120 




AND 


A 


PFL'9 ED5BA04' 


02130 




LD 


DE, -STPSRC) 


BFDD ED52 


02 1 40 




SBC 


HL,DE 


PFDF e:b 


02150 




E> 


DE,HL 


BFEO 13 


021 hO 




INC 


DE 


BFE1 El 


02170 




POP 


HL 


BFE2 DF 


02180 




RST 


18H 


BFE3 Dl 


02190 




POP 


DE 


BFE4 C? 


02200 




RET 




BFE5 It If* 


02210 


ABT 


LD 


E,QSEPR 


BFE7 C3A219 


02220 




JP 


ERROR 


BFEA D5 


02230 


READB 


PUSH 


DE 


BFEB ED5BFEBF 02240 




LD 


DE, 'FCB 1 


BFEF CD 1300 


02250 




CALL 


INCHW 


BFF2 Dl 


02260 




POP 


DE 


BFF3 CS 


02270 




RET 


L 


BFF4 CBFF 


'"'2280 




SET 


7 ,A 


BFF^ CDC44 


022 q 




CALL 


4409H 


BFF9 1E66 


02300 




LD 


E, 102 


PFFB CZfC.l* 


02310 




JP 


ERROR 


BFFE 0000 


02320 


FCB 


DEFW 





001 A 


V *. -* J 1 J 

02340 


05ERR 


EQU 


001 AH 


00 8^ 


02350 


INPUT 


EQU 


ooe^H 


00 B2 


02360 


PRINT 


EQU 


00B2H 


OAF 6 


02370 


TMERR 


EQU 


OAF eiH 


19A2 


02380 


ERROR 


EQU 


19A2H 


260D 


02330 


5VAR 


EQU 


2&0DH 


273D 


02400 


BSERR 


EQU 


273DH 


28E6 


02410 


COLLEC 


EQU 


28EtH 


40A0 


02420 


5TR5PC 


EO'l 


4 ( ">A0H 


40 A F 


02430 


tvpx 


EQU 


40AFH 


4 OB 6 


02440 


STRZG 


EQU 


4'.'D6H 


40FB 


02450 


ARRTAP 


EQU 


40FBH 


417B 


02460 


FIELDV 


EQU 


417CH+3 


BE9D 


02470 




END 


IMIT 


00000 TOTAL 


ERRORS 









k -.*r- 
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2.4.1 Kopierprogramm COPBIT 



COPBIT kopiert Co 1 our-Gen i e-Kassetten Bit. fur Bit und 
ermogl icht somit einf aches Kopieren praktisch al ler 
Colour-Genie-Kassetten ohne Kenntnis des 
Aufzeichnungsformat.es : 

1 ) Systemkassetten 

2) Basickassetten 

3) Datenkassetten 

4) geschiitzte Formate 

z . B . mi t Preloader und/oder Baudrat.eumschalt.ung 

Funkt ion 



COPBIT 1 iest Kassetten Bit fur Bit ein und achtet dabei 
nicht auf das Format . Unterbrechun gen mi t Bit-Strom uerden 
erkannt und f tihren auf Uunsch automat i sch zum Abbruch des 
Ladens . Erst nach dem Laden ui rd das Format anal ysi ert und 
bei Systemf i les uerden die Pruf surnmen , bei Basicf i les das 
Pointer system Liber prUf t , Beim Schreiben auf Kassette uird 
der eingelesene Bit-Strom Cauf eine ganze Anzah 1 von Bytes 
erganzt) aus dem Speicher uieder auf Kassette kopiert . 
Preloader , Baudrateumechal tung und Autostart stel len fur 
COPBIT keine Probleme dar. 

COPBIT uurde mit dem MACRO-80 von Microsoft entuickelt. 
Dabei uurden viele seiner besonderen Mogl ichkei ten 
ausgenutzt . Insbesonders sind d ies die MACRO * s und die 
Pseudo-Anueisungen . PHASE und . DE PHASE . Nur so konnte das 
Programm der art ig gestal tet uerden , daB der vorhandene 
Speicher optimal ausgenutzt ui rd Csiehe Techn ische 
Anmerkung ) . Di ese Version ist natLirl ich nicht fur den 
COL ASM geeignet . Daher ist das Programm in einer fur den 
COLASM bear bei tet en Version auf gel i stet , die auch auf der 
Quel lprogrammkassette- und d i skette entha 1 ten ist. Diese 
Version 1 a8t etuas uen iger Speicher a Is unten angegeben fur 
die zu kopierenden Programme f rei . 



nische Anmerkung 



COPBIT benutzt verschiedene Spei cherbereiche > die im 
Co lout — Gen ie— System e igent 1 ich fur best immte Systemauf gaben 
reserv iert sind. Daher ist es nicht mogl ich nach dem Laden 
von COPBIT einen RESET durchzuf uhren . Dies fuhrt 
unueiger 1 ich zu einer Fehlfunktion, da dadurch viele 
Programmtei le von COPBIT zerstort uerden . Ein Tei 1 von 
COPBIT i st im Speicher fur die f rei programm ierbaren 2ei chen 
untergebracht , uodurch manchmal kleine Bi ldschirmstorungen 
auf treten . Durch diese i ntensi ve Ausnutzung des Speicher 
uar es aber mogl ich 30526 0773EH im 32K-System > im 
16K-System: 14142 = 373EH) Bytes fur das zu kopierende File 
zur VerfLigung zu stel len. i 
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Nachdem COPBIT erfolgreich geladen ist> meldet sich das 
Hauptmenue : 



COPBIT V3 .0 Kassettenkop i erprogr amm 



Kopiert bel iebige Kassetten bi tuei se . 



/iVU t ^.' £ 'J U<+r,* 'i'\JS *t !. U '■; ts rT ",T "31 <^r ■• < UMr 



<C> 1984 Luidger Roeckrath, 5100 Aachen 



I Funktionen 



I 
I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
+ ■ 



. + + . 

I A I 



<L > a d e n 



<U> ergleichen 
<S> peichern 



<F> ehlertape laden 



<A> utomatik CEin/Aus) 



<D> rucker CEin/Aus) 



*r' -± it"j 4-^ -* $•*•**'*** V W* « S*— *> ~**\ *»* * ** -/ 



Durch Antippen der Buchstaben in <> kann die entsprechende 
Funktion angeuahlt uerden . 1st die jeuei 1 ige Funkt i on 
beendet , uird automat i sch i ns Hauptmenue zuruckgekehrt . 



In den be i den K as ten hi nter "Funktion : " uird der Zustand 
der Flags fur die Automatik und den Drucker angezeigt. "A" 
bedeutet Automatik an, "D" bedeutet Drucker ein. 
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den 



Nach der Auff order ung , den Kassettenrecorder 
ui edergabeberei t zu machen und der en Bestat i gung, begi nnt 
COPBIT das Programm zu lesen. Sobald der Header erkannt 
uurde, erscheinen in der oberen , rechten Bi Idschi rmecke die 
zuei Sterne . Das File ui rd von da an Byte f iir Byte 
eingelesen und i m Speicher abgelegt. Sollte eine 
Auf zeichnung am Ende kein vol 1 stand iges Byte mehr haben 
Cbei geschiitzten Formaten) , uerden auch die restl ichen Bits 
richtig geladen und gespeichert. 

UShrend des Ladens ISuft in der Bi ldschirmmi tte der 
ei ngelesene Text durch . Uei terhin uird bei Systemf i 1 es ein 
F gefolgt vom Filenamen, ein B fQr jeden Block und ein E 
fUr den Entrypointblock angezeigt. 

Beispiel: COLHON 

FCOLHONBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE 

Das Laden uird unter folgenden Bedingungen gestoppt: 

1) Automatik Ein (Startbedingung) 

sobald eine Pause in der Auf zeichnung auf tri tt . 

2> Automatik Aus 

sobald eine Pause auftritt und die <BREAK>-Taste gedruckt 
uird . 

Uill man den Ladevorgang mitten in einer Auf zeichnung 
beenden > kann man die Pause durch Anha 1 ten des 
Kassettenrecorder erzeugen . Auch uenn der Header gesucht 
uird, also bevor die zuei Sterne erscheinen , ist es 
"mogl ich „ den Ladevorgang abzubrechen . H ier i st nur 
erforderlich die <BREAK>-Taste zu driicken, der 
Kassettenrekorder braucht nicht angeha 1 ten zu uerden . 
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Analyse der gel adenen Auf zeichung 



Nach Beend i gung des Ladevorgangs ui rd die gel adenen 
Auf zeichnung analysiert . Dabex ui rd f estgestel It, ob es 
sich urn ein System- oder Basicfile handel t : 



1 ) Systemf i le: , 

i 

Das Format f Ur Systemf i les ist f olgendes C siehe auch 
Colour-Genie-ROM-Listing) : 



Filename: 55H 6 Bytes Filename 

Block: 3CH Lange Startadresse CLSB/tlSB) Datenbytes 

Prlif summe 
Entry: 78H Entrypoint CLSB/riSB) 

Beispiel: COLMON C6000H-6FFFH) 

Filename: 55H 43H 4FH 4CH 4DH 4FH 4EH = 55H COLMON 
Block : 3CH 80H 08H 60H C 1 28 Datenbytes) (Priif summe) 

= 6000H-607FH 
<30 ahnliche Blocke> 
Block : 3CH 80H 80H 6FH C128 Datenbytes) (Priifsumme) 

= 6F80H-6FFFH 
Entry : 78H 00H 60H = 6000H 

COPBIT erkennt automat isch das Systemf or mat und g ibt in 
obigen Beispiel aus: 



•f 1 «• w - -(H'll 



Systemf i le 

Block 

Entry 



COLMON 

6000H-6FFFH — '" ' •' " ' -~ ~ — •- 

6000H 



Bi lden mehrere Blocke des Systemf i les einen 
zusammenhangenden Speicherblock , uird nur dieser angezeigt 
Csiehe Beispiel.). 

Bei Bldcken zuischen 1 und 3 Bytes Lange uird zusatzlich 
der Inhalt des Blocks angezei gt ♦ Da diese Blocke oft 
Sprungvektoren si nd , die iiberschr leben uerden „ ist diese 
Information besonders uertvol 1 . Ein Sprungbef eh 1 der auf 
die Adresse 41E2H-41E4H geladen uird, bedeutet einen 
Autostart . Sie konnen a Iso sof ort die Startadresse ei nes 
Programmes mi t Autostart ablesen , z . B . : 

Block : 41E2H-41E4H : C3H E8H 41H 

bedeutet , dafl sobald der Entry im Systemf i le erreicht » 
automatisch die Adresse 41E8H angesprungen uird. 

Bei fehlerhaften Blocken uird nur der Block des 
Systemf lies, der den Fehler enthielt, entsprechend markiert 
ausgedruckt: ■ 



Systemf i 1 e 

Block 

Block 



C0LI10N 

6000H-637FH 

6380H-63FFH! ! ! Fehler t ! t 
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Block : 6460H-6FFFH 
Entry : 6009H 

Vor jedem Block C55H, 3CH , 78H) konnen zusatzliche Bytes 
stehen , die vom System-Loader im ROM einfach uber lesen 
uerden . COPBIT zei gt deren Anzahl an. Bei Fehler erscheint 
auch haufig diese Anzeige : 



Systemf i le 

Block 

Block 

zus . Bytes 

Block 

Entry 



COLMON 

6000H-637FH 

6380H-63FFH! ! t Fehler !♦« 

0073H 

6480H-64FFH 

6000H 



« 



Auch nach dem Entry kdnnen bei geschUtzten For ma ten 
zusatzliche Bytes auftreten. 

2) Basicprogramme 

Basicprogramme uerden f ol gender mafi en auf gezeichnet : 

Fi lename : 1 Byte 

Basi ctext , uie im Speicher einschl ie8 1 ich der drei am 

Ende. 

< S i ehe Co 1 oui — Gen i e-ROH-L i st i ng 5 

Basicprogramme en thai ten keine Prlif summe , aber durch das 

Pointer system C jede 2ei le entha It einen Pointer auf die 

nSchte Zei le) kann die gel adene Auf zeichnung im geui ssen | 

Rahmen geprtif t uerden , uobei es unerhebl ich ist , uo das 

Basi cpr ogramm vorher im Speicher stand . 

Beispiel : Demoprogramm 

Basicf i le: D 

Bei Fehlern im Poi ntersystem uird fur jeden falschen 

Pointer die tleldung Fehler ausgegeben: „ . . - , . ■^^.^■: - *. --.. 

Basi cf i le : D 
!*! Fehler !M 
!!! Fehler !!! 



Bei bei den Fi letypen kann eine ueitere Feb. lermel dung 
erscheinen : 



File zu kurz. 



Diese erscheint zum Beispiel, uenn ein Systemprogramm 
mitten im Block abbricht oder der Entry fehlt und bei einem 
Basi cpr ogramm , uenn die drei am Ende f ehlen ♦ 

Bei Da ten auf zei chnungen kann entueder nichts erschei nen 
oder es kann zuf Ml lig als einer der Fi letypen erkannt 
uerden. Dann erscheinen hochstuahrscheinl ich zahlreiche 
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Fehl ermeldungen . 

Feh 1 ermeldungen beeintrachtigen den Kopiervorgang nicht. 
Sie dienen nur zur Kontrol le. 

Eine gel adene Aufzeichung steht bis zum nachsten Laden fur 
Verg leiche und zum Aufzeichnen zur Verf Qgung 

Die Anal yse des Fi les uird bei eingescha 1 tetem Drucker C<D> 
im Hauptmenue) paralel 1 zur Bi Idschirmausgabe auf den 
Drucker ausgegeben. 



V«?r~gl «*± chen 



>*- > "'Ji^oar-.VNrjTV" ■.*»*«*£" - t ;■•■ ■■■! -, -* r v*""' c i .?* 'i » »-? jr.'ty •*• 



Die in den Speicher geladenen Aufzeichung kann mit einer 
ueiteren vergl ichen uerden C zum Beispi el eine angefertigte 
Kopie) . Abbruch uie beim Laden und automatisch beim 1 . 
Ladef eh ler . Bei m Uergleichen ui rd der eingelesene Text* 
nicht auf dem Bi ldschirm angezeigt . Die Anzeige "Fname 
BBBBBBBBBBE" erscheint, uenn das zu vergleichende File mit 
"L" geladen uurde , und nicht, uenn es mit "F M gel aden 
uurde . 



hr-ei fc>en 



jfri V"" 1 '" 



K asset ten recorder zur Auf nahme berei t machen und d ies 
bestat igen . Dann erf olgt die Abfrage: 

Kopienanzahl ? 

Sie kSnnen mit <EHTER> oder einer 2if f er antuorten . Es uird 
dann automatisch ei ne entsprechende Anzah 1 von Kopien C bei 
< ENTER > = 1 ) hi ntereinander erzeugt * Zuischen 2 Kopien uird 
automatisch ei ne Pause von ca . 5 Sekunden ei ngeschoben . 
Abbruch des Schreibens ist jederzeit auBer uahrend der 
Pause durch Drucken der <BREAK >-Taste moglich. 
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X ertape 1 aden 



Die komplexen Analysevorgange beim Laden machen das Laden 
mit COPBIT etuas kritischer als das normale Einladen mit 
CLOAD oder SYSTEM . Desha 1 b kann mit <F> eine uei tere 
Laderoutine auf geruf en uerden , die uahrend des Laden nur 
den Text, durch 1 auf en 1 aBt „ aber nicht "Fname BBBBBE" 
ausdruckt . Dadurch uerden viele 1 anguier ige Operationen 
ei ngespart und das Laden i st erhebl ich unkritischer . Bei 
Ladeproblemen he If en im ubr i gen oft, auch f olgende Tips : 

1 ) Hohen auf Maximum 

2) Tonkopf justage : Uahrend der Uiedergabe auf max i male 
Hohenui eder gabe (deut 1 ich zu horen) abstimmen . Nach 
erf olgreichem Laden uieder auf Ihre Standardeinstel lung mit 
einer I hrer a 1 ten Kassetten ei nstel len und dann die Kopien 
anfertigen. Die COPBIT-Kassette ist Qbrigens auf einem mit 
ei ner Azimut-Normkassette gee ich ten Kassettenrekorder 
auf gezeichnet * 

3) LautstSrke: Bei manchen Auf zeichungen hi lft starkes 
ubersteuern , bei anderen aber eher eine etuas niedr igere 
Uahl der LautstMrke C2) . 



at ± he 



Die Automatik (Abbruch des Laden, uenn eine Pause auftritt) 
kann abgescha 1 tet uerden , uenn eine Auf zeichnung mit Pausen 
gel aden uerden sol 1 * Beim Star ten des Programmes ist die 
Automatik ein . Durch Ei ngabe einer < A > im Hauptmenue kann 
sie ab- und uieder ei ngescha 1 tet uerden . Der Zustand des 
Automatikf lags kann im Hauptmenue jederzeit im linken 
Kasten abgelesen uerden . 



LSMMw j.*f* J" «•!.'. ,i 



'i—mc %<&r- 



Die Analyse eines geladenen Files kann uahlueise auf einen 
Drucker zusatzlich ausgedruckt uerden. Uenn Sie dies 
uiinschen , mUBen Sie im Hauptmenue das < D> antippen . Hit der 
gleichen Taste konnen Sie den Drucker uieder abschalten. 
Der jeue i 1 i ge Zustand kann im rechten Kasten abgelesen 
uerden. Bitte achten Sie darauf , daB bei ei ngescha 1 tetem 
Drucker , auch ui rkl ich ein Drucker angeschlossen und ON 
L INE ist * Sonst blei bt das Programm nach dem Laden stehen ! 
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In IX 



Zahlreiche Programme fur das Colour-Genie sind in einem 
geschUtzten Format aufgezeichnet , und 1 assen s i ch nicht 
mit einem normal en Kopierprogramm kopieren . Durch das 
vdllig neue Konzept von COPBIT konnen praktisch alle fur 
das Colour— Genie angebotenen Programme mit hohem Komfort 
kopiert uerden . 

Preloader 



Viele geschiitzte Formate arbeiten mi t Prel oader, d. h. die 

Aufzeichnung beginnt mit einem kurzen Teil im Systemformat, -«»,, ^.^...^^j,, 

der einen Autostart (s.o. und ROM-Listing) en thai t . Danach 

kommt e in be 1 ang loser Entry und dahinter noch zah lreiche 

Bytes i n einem anderen Format Cvom Programmautor erfunden) , 

uelche von COPBIT al s "zus. Bytes" ausgegeben uerden . Beim 

Laden mit dem System-Bef ehl uird der erste Teil Cder 

Preloader) in den Speicher gel aden und nach dem belanglosen 

Entry uird an die Autostartadresse gesprungen , uo nun der 

Preloader startet und mit Hilfe der ROH-Rout inen den Rest ; 

des Programmes i m speziel len Format 1 adt . Dieser Trick 1 a8t 

die meisten Kopier programme schei tern , da Sie den 

Lade vor gang beim Entry abbrechen . COPBIT aber 1 adt sol ange 

von Kassette bis ei ne Pause kommt und legt die gel aden en 

Bytes einschl ie01 ich al ler Steuerzeichen h intereinander 

unverandert im Speicher ab . Erst nach beendeten Laden uird 

dort analysiert. Bei m Schreiben ui rd al les uieder genauso 

auf Kassette gespei chert uie es vor her eingel aden uurde . 

Pre 1 oader auf zeichnungen 1 assen sich ohne uei teres mit 

COPBIT kopieren. _. 

Baudrateumschal tung 



»^r-y-'.v.j ■ 



Ein anderer uei tverbrei teter Kopierschutztr ick ist d ie 

Ueranderung der Baud rate . Be im Co lour -Genie konnen durch i 

Bel eg en von besti mmten Speicherzel 1 en mit best immten Uerten j 

die Auf zeichungs- C4310H + 4311H) und Ladebaudrate C4312H) \ 

in ue i ten Rahmen verandert uerden . COPBIT erkennt beim \ 

Laden Ueranderungen der Baudrate C= Veranderungen der \ 

Speicherzel le 4312H) und fuhrt diese entsprechend aus urn 3 

mit der richtigen Baudrate zu laden. Diese falschen Uerte : 

uerden aber sof ort durch den Standarduert ersetzt im 

Spe i cher abgelegt Cbei der Analyse konnen Sie das bei 

Blocken folgender Art erkennen : Block : 4312H-4312H : 

69 H) . Die Baudrateumschal tung konnen Sie aber auch schon 

uahrend des Lade vor ganges an der Geschuindigkei tsanderung 

des durchlaufenden Textes erkennen. Die Kopie ui rd ohne 

Baudrateumschal tung erstellt, und da alle entsprechenden 

Blocke durch die Standarduerte unschadlich gemacht uorden 

sind, ist diese Aufzeichnung trotzdem ei nuandf rei lauffahig 

und geringfugig kurzer. Bander mit Baudrateumschal tung 

konnen nicht mit <F> geladen uerden > da dann die Analyse , 

die die Baudrateumscha 1 tung erkennt > entf al 1 1 . 
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00 1 00 




cope 


)it 






00110 












00120 




Kopiert Colour-Genie KaEsetten Bitweise 






00130 












00140 




<c> 


Lui dger Rbckrath 






00150 






Noppiusstr. 19; 






00160 






5100 Aachen 






00170 






(0241)34962 






00180 












00 1 90 












00200 








000D 




002 1 
00220 
00230 


CR 1 


i 


ODH 


4800 




00240 
00250 
00260 


( 


3R6 

9 
J 

; ASEG 


4800H 


4800 


F3 


00270 


START 


DI 




4801 


31694C 


00280 




_D 


SP, BUFFER 


4804 


3E69 


00290 




LD 


A, 105 


4806 


321243 


00300 




_D 


(4312H),A 


4809 


3E03 


00310 




LD 


A, 3 


480B 


CDB03F 


00320 


«. ■ . 


CALL 


3FB0H ..... .... , - .. . „. _.„■-.,■ , _,., 


480E 


21D9F4 


00330 




LD 


HL,TEXT1 


4811 


CD13F4 


00340 




CALL 


PRINT 


4814 


CD2B00 


00350 


ST1 


CALL 


INCH 


4817 


FF61 


00360 




CP 


S 


481? 


3802 


00370 




JR 


C,ST2 


481B 


D620 


00380 




BUB 


'a'-'A ? 


481D 


FE4C 


00390 


ST2 


CP 


7 L' 


481F 


281C 


00400 




JR 


Z , LADEN 


4821 


FE53 


00410 




CP 


J S' 


4823 


CAC74A 


00420 




JP 


Z,SCHREI 


4826 


FE56 


00430 




CP 


>V 


4828 


CA374B 


00440 




JP 


Z,VERGLE 


482B 


FE41 


00450 




CP 


? A' 


482D 


CAB44A 


00460 




JP 


Z,AUT0M 


4830 


FE44 


00470 




CP 


? D' 


4832 


CA00F4 


00430 




JP 


Z,DREA 


4835 


FE46 


00490 




CP 


*F* 


4837 
483A 


CA3C48 

18D8 


00500 
00510 

00520 




JP 

JR 

* 


Z, FTAPEL ...... 4 , , 

ST1 






00530 




; Fehlerha-f tes Tape 1 aden 






00540 




* 




483C 


3E 


00550 


FTAPEL 


DEFB 


3EH ; = LD A,... 


483D 


AF 


00560 


LADEN 


XOR 


A 


4S3E 


32FBF7 


00570 




LD 


<FTF),A 


4841 


2184F6 


00580 




LD 


HL,TEXT2 


4344 


CD13F4 


00590 




CALL 


PRINT 


4847 


210000 


006 CtO 




LD 


HL,0 


4S4A 


22EFF7 


00610 




LD 


(LSTREC) ,HL 


484D 


22EDF7 


00620 




LD 


(LSTRAC),HL 


4850 


CD8F4B 


00630 




CALL 


WAIT 


4853 


21E0F6 


00640 




LD 


HL,TEXT6 


4856 


CD13F4 


00650 




CALL 


PRINT 


4859 


117F46 


00660 




LD 


DE 5 467FH 


485C 


211CCB 


00670 




LD 


HL,0CB1CH 


485F 


226C4B 


00680 




LD 


<READY),HL 


4862 


FD2A204C 


t 00690 


LAD 


LD 


IY, (4020H) 



2.4.2 Kopierprogramm COPBIT - Quel Iprogramm 



Seite 139 



4866 3E55 


00700 




LD 


a, ? ir 


4868 328648 


00710 




LD 


(LlliO+l),A 


486B 21684C 


00720 




LD 


ML, BUFFER- 1 


486E CDF54B 


00730 




CALL 


READS 


4871 DA414A 


00740 




JF 


C,L110 


4874 3AFBF7 


00750 




LD 


A, (FTF) 


4877 A7 


00760 




AND 


A 


4878 207D 


00770 




JR 


NZ,Llli6 


487A CD6C4B 


00780 


LI 


CALL 


READY 


487B FE3C 


00790 




CP 


3CH 


487F 280A 


00800 




JR 


Z.Liiil 


4831 FE78 


00810 




CP 


7SH 


4883 2861 


00820 




JR 


Z,L1115 


4885 FE55 


00830 


LI 110 


CP 


55H 


4887 2844 


00840 




JR 


2,L1114 


4889 18EF 


00850 




JR 


LI 


468B FD360042 


00860 


Ltlll 


LD 


(IY+0) ,'B ? 


488F FD23 


00870 




INC 


IV 


4891 AF 


00880 




XOR 


A 


4892 32FAF7 


00890 




LD 


(CF),A 


4895 CD6C4B 


00900 




CALL 


READY 


4898 47 


00910 




LD 


B, A 


4899 CD6C4B 


00920 




CALL 


READY 


489C D9 


00930 




EXX 




4S9D 6F 


00940 




LD 


L,A 


489E D9 


00950 




EXX 




489F CB6C4B 


00960 




CALL 


READY 


49A2 D9 


00970 




EXX 




48A3 67 


00980 




LD 


H,A 


48A4 D9 


00990 




EXX 




48A5 CD6C4B 


01000 


L1H2 


CALL 


READY 


48A8 D9 


01010 




EXX 




48A9 7C 


01020 




LD 


A,H 


48AA FE43 


01030 




CP 


43H 


48AC 7D 


01040 




LD 


A,L 


48AD 23 


01050 


, -. 


INC 


HL ' ' 


48AE D9 


01060 




EXX 




4SAF 2010 


01070 




JR 


NZ,L1113 


48B1 FE12 


01080 




CP 


12H 


48B3 200C 


01090 




JR 


NZ,L1113 


48B5 7E 


01100 




LD 


A, (HL) 


4SB6 321243 


OHIO 




LD 


<4312H),A 


48B9 3669 


01120 




LD 


(HL), 105 


48BB ED44 


01130 




NEG 




48BD 86 


01140 




ADD 


A, (HL) 


48BE 32FAF7 


01150 




LD 


(CF),A 


48C1 10E2 


01160 


L1U3 


DJNZ 


L1112 


43C3 CB6C4B 


01170 




CALL 


READY 


4SC6 3AFAF7 


01180 




LD 


A, (CF) 


48C9 86 


01190 




ADD 


A, (HL) 


48CA 77 


01200 




LD 


<HL>,A 


48CB 18AD 


01210 




JR 


LI 


48CD FD360O46 


01220 


LI 114 


LD 


(IY+0) , 'F 7 


4SD1 FD23 


01230 




INC 


IY 


48D3 0606 


01240 




LD 


B,6 


43D5 CD6C4B 


01250 


L11114 


CALL 


READY 


48De FD7700 


01260 




LD 


UY+O) ,A 


48DB FD23 


01270 




INC 


IY 


48DD 10F6 


01280 




DJNZ 


L11114 


48DF 3E3C 


01290 




LD 


A.3CH 
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48E1 


32B64S 


01 


300 




LD 


(LI 110+1) ,A 


4SE4 


1894 


01 


310 




JR 


Li 


48E6 


FD360045 


01 


320 


L1115 


LD 


(IY+0) ,'E' 


4SEA 


FD23 


01 


330 




INC 


IY 


48EC 


CD6C4B 


01 


340 




CALL 


READY 


48EF 


CD6C4E 


03 


350 




CALL 


READY 


48F2 


3E69 


01 


360 




LD 


A, 105 


4SF4 


321243 


1 


370 




LD 


(4312H>,A 


4SF7 


CD6C4B 


01 


380 


L1116 


CALL 


READY 


4SFA 


1SFB 


01 


. 390 




JR 


L1U6 


48FC 


3E00 


01 


400 


L22 


LD 


A»0 


4SFE 


8F 


01 


.410 




ADC 


A, A 


48FF 


32FCF7 


01 


420 




LD 


(AFF),A 


4902 


FD222040 


o: 


l430 




LD 


(4020H) ,IY 


4906 


3AF8F7 


01 


.440 




LD 


A, (DF) 


4909 


32F9F7 


01 


1450 




LD 


(DFLAG),A 


490C 


11694C 


o: 


460 




LD 


DE, BUFFER 


490F 


A7 


01 


L 470 




AND 


A 


4910 


ED52 


01 


.480 




SBC 


HL,DF. 


4912 


E5 





L 490 




PUSH 


HL 


4913 


21A9F6 


01 


L500 




LD 


HL,TEXT3 


4916 


CD13F4 


o: 


L510 




CALL 


PRINT 


4919 


El 


01 


L520 




POP 


HL 


491A 


CD67F4 


o 


1530 


" "* L ■/ ' 


CALL 


PRHEX' "^ " 


491D 


CBAC4A 


01 


L540 




CALL 


CRCR 


4920 


22EBF7 


A 


1 550 




LD 


(FLEN) .HL 


4923 


1 J 8046 


o: 


L560 




LD 


DE,46B0H 


4926 


0680 


0' 


L570 




LD 


B, 128 


4928 


3E20 


01 


1580 




LD 


A,' ? 


492A 


12 





1 590 


L113 


LD 


<DE),A 


492B 


13 


01 


. 600 




INC 


DE 


492C 


10FC 


o 


1610 




DJNZ 


L113 


492E 


11694C 





1620 




LD 


DE, BUFFER 


4931 


2AEBF7 





1630 




LD 


HL, (FLEN) 


4934 


19 


o 


L640 




ADD 


HL,DE 


4935 


2B 





1650 




DEC 


HL 


4936 


3AFCF7 





L660 




LD 


A, (AFF) 


4939 


A7 





1670 




AND 


A 


493A 


2801 





1680 




JR 


2,L114 


493C 


2B 


o 


1690 




DEC 


HL 


493D 


CD984A 


o 


1700 


LI 14 


CALL 


NULL 


4940 


CA4B4A 


o 


1710 




JP 


Z,LiOO •**-•* 


4943 


1A 





1720 




LD 


A, (DE) 


4944 


FE55 


o 


1 730 




CP 


'U* 


4946 


2806 


Ij 


1 740 




JR 


*— * v< I i U 


4948 


CD984A 





1 750 




CALL 


NULL 


494B 


CA4B4A 





1760 




JP 


Z,L100 


494E 


21FFFF 


(It 


1770 


L115 


LD 


HL,0FFFFH 


4951 


1A 


o 


1780 


L112 


LD 


A, (DE) 


4952 


CBBFF4 


o 


1 790 




CALL 


ENDE 


4955 


23 





1.800 




INC 


HL 


4956 


13 


f'l 


1810 




INC 


DE 


4957 


FE55 


o 


1820 




CP 


'U* 


4959 


20F6 


o 


1 830 




JR 


NZ,L112 


495B 


7C 


rj 


1840 




LD 


A,H 


495C 


B5 


o 


1850 




OR 


L 


495D 


E5 


o 


1 860 




PUSH 


HL 


495E 


F5 


n 


1370 




PUSH 


AF 


495F 


216AF7 


o 


1 880 




LD 


HL, TEXT 18 


4962 


C413F4 


ij 


1890 




CALL 


NZ, PRINT 
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4965 


Fi 


01900 


POP 


AF 


4966 


El 


01910 


FOP 


HL 


4967 


C467F4 


01920 


CALL 


NZ,PRHEX 


496A 


214EF7 


01930 


LD 


HL,TEXT10 


496D 


CD13F4 


01940 


CALL 


PRINT 


4970 


0606 


01950 


LD 


B,6 


4972 


1A 


01960 Lil 


LD 


A, (DE) 


4973 


CD3BF4 


01970 


CALL 


OUTCH 


4976 


13 


01980 


INC 


DE 


4977 


10F9 


01990 


DJN2 


Lll 


4979 


21FFFF 


02000 L12 


LD 


HL,OFFFFH 


497C 


1A 


02010 L121 


LD 


A, (DE) 


497D 


CDBFF4 


02020 


CALL 


ENDE 


4980 


13 


02030 


INC 


DE 


4981 


17 


02040 


INC 


HL 


4982 


FE78 


02050 


CP 


78H 


4984 


2604 


02060 


JR 


Z,L122 


4986 


FE3C 


02070 ' ,f '" 


'*■&» -' 


3CH 


4988 


20F2 


02080 


JR 


NZ,L121 


498A 


F5 


02090 LI 22 


PUSH 


AF 


498B 


7C 


02100 


LD 


A,H 


498C 


B5 


02110 


OR 


L 


498D 


2S0B 


02120 


JR 


Z,L123 


493F 


E5 


02130 . 


PUSH 


HL 


4990 


216AF7 


02140 


LD 


HL, TEXT 13 


4993 


CD13F4 


02150 


CALL 


PRINT 


4996 


El 


02160 


POP 


HL 


4997 


CD67F4 


02170 


CALL 


FRHEX 


499A 


Fl 


02180 LI 23 


POP 


AF 


499B 


FE78 


02190 


CP 


78H 


499D 


2873 


02200 


JR 


2,L15 


499F 


1A 


02210 


LD 


A, (DE) 


49A0 


4F 


02220 


LD 


C,A 


49A1 


13 


02230 


INC 


BE 


49A2 


1A 


02240 


LD 


A, (DE) 


49A3 


6F 


02250 


LD '' 


•^-L,A 


49A4 


13 


02260 


INC 


DE 


49A5 


1A 


02270 


LD 


A, (DE) 


49A6 


67 


022S0 


LD 


H,A 


49A7 


13 


02290 


INC 


DE 


49A3 


85 


02300 


ADD 


A,L 


49A9 


47 


02310 


LD 


B,A 


49AA 


C5 


02320 


PUSH 


BC 


49AB 


ED53F1F7 


02330 


LD 


(LSTAD) ,DE 


49AF 


1A 


02340 LI 4 


LD 


A, (DE) 


4 9 BO 


CDBFF4 


02350 


CALL 


ENDE 


49B3 


13 


02360 


INC 


DE 


4*B4 


80 


02370 


ADD 


A,B 


49B5 


47 


02380 


LD 


B,A 


49B6 


0D 


02390 


DEC 


C 


49B7 


20F6 


02400 


JR 


NZ,L14 


49B9 


1A 


02410 


LD 


A, (DE) 


49&A 


13 


02420 


IMC 


DE 


49BB 


90 


02430 


SUB 


B 


49BC 


280C 


02440 


JR 


Z,L1S 


49BE 


E5 


02450 


PUSH 


HL 


4<?BF 


CD6FF4 


02460 


CALL 


PRBL : 


49C2 


El 


02470 


POP 


HL : 


49C3 


010000 


024S0 


LD 


BC,0 


49C6 


ED43EFF7 


02490 


LD 


(LSTREC) ,BC 
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49CA 


32F5F7 


02500 LIS 


LD 


(CSF) ,A 


49CD 


CI 


02510 


POP 


BC 


49CE 


E5 


02520 


PUSH 


HL 


49CF 


D5 


02530 


PUSH 


DE 


49D0 


ED5BEFF7 


02540 


LD 


DE, (LSTREC) 


49D4 


7B 


02550 


LD 


A,E 


49D5 


B2 


02560 


OR 


D 


49D6 


2003 


02570 


JR 


NZ,L16 


49DS 


3C 


02580 


INC 


A 


49B9 


1B08 


02590 


OR 


L17 


49DB 


37 


02600 L16 


SCF 




49DC 


ED52 


02610 


SBC 


HL,DE 


49DE 


F5 


02620 


PUSH 


AF , 


49DF 


C46FF4 


02630 


CALL 


NZ,PRBL 


49E2 


Fl 


02640 


POP 


AF 


49E3 


Dl 


02650 LI 7 


POP 


DE 


49E4 


El 


02660 


POP 


HL 


49E5 


280B 


02670 


JR 


Z,L13 


49E7 


22EDF7 


02680 


LD 


(LSTRAC),HL 


49EA 


E5 


02690 


PUSH 


HL 


49EB 


2AF1F7 


02700 


LD 


ML. <LSTAD) 


49EE 


22F3F7 


02710 


LD 


(LSTAD1) ,HL 


49F1 


El 


02720 


POP 


HL 


49F2 


0600 


02730 L13 


LD 


B,0 


49F4 


0D 


02740 


DEC 


_ 'V.--. . » 


49F5 


09 


02750 


ADD 


HL,BC 


49F6 


22EFF7 


02760 


LD 


( LSTREC ),HL 


49F9 


3AF5F7 


02770 


LD 


A, (CSF) 


49FC 


A7 


02780 


AND 


A 


49FD 


CA7949 


02790 


JP 


Z,L12 


4A00 


CD6FF4 


02800 


CALL 


PRBL 


4A03 


210000 


02810 


LD 


HL,0 


4A06 


22EFF7 


02820 


LD 


(LSTREC) ,HL 


4A09 


2186F7 


02830 


LD 


HL,TEXT13 


4A0C 


CD13F4 


02840 


CALL 


PRINT 


4A0F 


C37949 


02850 
02860 


JP 

■ 


L12 


4A12 


CD6FF4 


02870 L15 


CALL 


PRBL 


4A15 


217SF7 


02680 


LD 


HL,TEXT12 


4A18 


CD13F4 


02890 


CALL 


PRINT 


4A1B 


1A 


02900 


LD 


A, (DE) 


4A1C 


6F 


029 1 


LD 


L,A 


4A1D 


13 *' * 


02920 '""■'' 


"' INC 


DE 


4A1E 


1A 


02930 


LD 


A, (DE) 


4A1F 


67 


02940 


LD 


H,A 


4A20 


CD67F4 


02950 


CALL 


PRHEX 


4A23 


13 


02960 


INC 


DE f 


4A24 


21694C 


02970 


LD 


HL, BUFFER 


4A27 


ED4BEBF7 


02980 


LD 


BC, (FLEN) 


4A2B 


09 


02990 


ADD 


HL,BC 


4A2C 


A7 


03000 


AND 


A 


4A2D 


ED52 


03010 


SBC 


HL,DE 


4A2F 


7D 


03020 


LD 


A,L 


4A30 


B4 


03030 


OR 


H 


4A31 


280B 


03040 


JR 


Z,L111 


4A33 


E5 


03050 


PUSH 


HL 


4A34 


216AF7 


03060 


LD 


HL,TEXT18 


4A37 


CD13F4 


03070 


CALL 


PRINT 


4A3A 


El 


03080 


POP 


HL 


4A3B 


CD67F4 


03090 


CALL 


PRHEX 
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4A3E CDAC4A 


03100 


LIU 


CALL 


CRCR 


4A41 AF 


03110 


LI 10 


/OF 


A 


4A42 32F*F7 


03120 




LD 


(DFLAG) ,A 


4A45 CD8F4B 


03130 


WS TAR- 


r CALL 


WAIT 


4A48 C30043 


03 1 40 
03150 




JP 

* 


START 


4A4B 2195F7 


03 1 60 


LI 00 


LD 


HL, TEXT 14 


4A4E CD13F4 


03170 




CALL 


PRINT 


4 AM 1A 


03180 




LD 


A, <DE> 


4A52 CD3BF4 


03190 




CALL 


OL'TCH 


4A55 13 


03200 




INC 


DE 


4A56 CDAC4A 


03210 




CALL 


CRCR 


4A59 EB 


03220 




EX 


DE,HL 


4A5A 5E 


03230 


LI 05 


LD 


E, CHL> 


4A5B 23 


03240 




INC 


HL ; 


4A5C 56 


03250 




LD 


D, 'HL) 


4A5D 23 


03260 




INC 


HL 


, 4A5E 23 


03270 


* T * *-' 


»•* INC 


HL ■: « - r • ' 


4A5F 23 


03230 




INC 


HL 


4A60 7E 


03290 


L101 


LD 


A, (HL) 


4A61 CDB9F4 


03300 




CALL 


EHDE1 


4A64 23 


03310 




INC 


HL 


4A65 A7 


03320 




AMD 


A 


4A66 20F8 


03330 




JR 


NZ,L101 


4A68 CDB9F4 


03340 


LI 02 


CALL 


ENDE1 


4A6B D5 


03350 




PUSH 


DE 


4A6C 5£ 


03360 




LD 


E, (HL) 


4A6D 23 


03370 




INC 


HL 


4A6E 56 


03380 




LD 


D, (HL) 


4A6F 7A 


03390 




LD 


A,D 


4A70 B3 


03400 




OR 


E 


4A71 E3 


03410 




EX 


(SP),HL 


4A72 EB 


03420 




e>: 


DE,HL 


4A73 CI 


03430 




POP 


BC 


4A74 CA414A 


03440 




JP 


Z,LilO 


4A77 E5 


03450 


_ 


PUSH 


HL 


4A73 ED52 


03460 




SBC 


HL,DE 


4A7A 09 


03470 




ADD 


HL,BC 


4A7B Bl 


03480 




POP 


DE 


4A7C 2B 


03490 




DEC 


HL 


4A7D 2B 


03500 




DEC 


HL 


4A7E 7E 


03510 




LD 


A, (HL) 


4A7F 23^ 


03520 




INC 


HL 


4A80 A7 


0353O 




AND 


A 


4A81 28E5 


03540 




JR 


Z,L102 


4A83 E5 


03550 




PUSH 


HL 


4A84 2186F7 


03560 




LD 


HL,TEXT13 


4A87 CD13F4 


03570 




CALL 


PRINT 


4A8A El 


03580 




POP 


HL ■ 


4A8B CDAF4A 


03590 




CALL 


CR1 


4A8E 7E 


03600 LI 03 


LD 


A, (HL) 


4A8F CDB9F4 


03610 




CALL 


.ENDE1 


4A92 23 


03620 




INC 


HL 


4A93 A7 


03630 




AND 


A 


4A94 20F8 


03640 




JR 


NZ,L103 


4A96 18C2 


03650 
03660 ; 




JR 


L 1 05 


4A98 7E 


03670 NULL 


LD 


A, (HL) 


4A99 2B 


03680 




DEC 


HL 


4A9A B6 


03690 




OR 


(HL) 
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4A9B 2B 


03700 




DEC 


HL 


4A9C E6 


03710 




OR 


<HL) 


4A9D 23 


03720 




INC 


HL 


4A9E CO 


03730 




RET 


NZ 


4A9F 2P 


03740 




DEC 


HL 


4AA0 2B 


03750 




DEC 


HL 


4AAi 7E 


03760 




LD 


A, <HL> 


4AA2 FE78 


03770 




CP 


78H 


4AA4 23 


03780 




INC 


HL 


4AA5 23 


03790 




INC 


HL 


4AA6 2802 


03800 




JR 


Z,N1 


4AA8 AF 


03810 




XOR 


A 


4AA9 C9 


03820 




RET 




4AAA A7 


03830 


Nl 


AND 


A 


4AAB C9 


03840 
03850 




RET 

« 




4AAC CDAF4A 


03860 


CRCR 


CALL 


CR1 


4AAF 3E0D 


03870 


CR1 


LD 


A,CR 


4AB1 C33BF4 


03880 
03890 




JP 

• 


DUTCH 




03900 




; Automat i k <Ein/Aus) 




03910 




? 


. 


4AB4 3AF6F7 


03920 


AUTOM 


LD 


A, (BF) 


4AB7 EEFF 


03930 




XOR 


255 


4AB9 32F6F7 


03940 


j, '. .. , 


LD 


<BF) ,A *■-- * 


4ABC 3A79F5 


03950 




LD 


A, <BA) 


4ABF EE61 


03960 




XOR 


7 a' ; > ? XOF 


4ACt 3279F5 


03970 




LD 


(BA> ,A 


4AC4 C3004S 


03980 
03990 




JP 


START 




04000 




; Sch 


reiben 




04010 








4AC7 21BBF6 


04020 


SCHREI 


LD 


HL,TEXT4 


4ACA CD13F4 


04030 




CALL 


PRINT 


4ACB CD8F4B 


04040 




CALL 


WAIT 


4 ADO 21BAF7 


04050 




LD 


HL,TEXT16 


4AD3 CD13F4 


04060 




CALL 


PRINT 


4AD6 CB2B00 


04070 


SO 


CALL 


INCH 


4AD9 FEOD 


04080 




CP 


CR 


4ADB 0601 


04090 




LD 


B,l 


4ADD 2809 


04100 




JR 


2, SOI 


4ADF D630 


04110 




SUB 


'0' 


4AE1 38F3 


04120 


^ + *T ' 


JR 


C,SO ...-*..-...-- 


4AE3 FEOA 


04130 




CP 


10 


4AE5 30EF 


04 1 40 




JR 


NC,SO 


4AE7 47 


04150 




LD 


B,A 


4AE8 78 


04160 


SOI 


LD 


A,B 


4AE9 C630 


04170 




ADD 


A, '0' 


4AEB CD3BF4 


04180 




CALL 


DUTCH 


4AEE 48 


04190 




LD 


C,B 


4AEF 21F2F6 


04200 




LD 


HL,TEXT7 


4AF2 CD13F4 


04210 




CALL 


PRINT 


4AF5 C5 


04220 


Sll 


PUSH 


BC 


4AF6 79 


04230 




LD 


A,C 


4AF7 90 


04240 




SUB 


B 


4AF8 C631 


04250 




ADD 


A, ' 1 * 


4AFA 32CBF7 


04260 




LD 


(TEXT17),A 


4AFD FS 


04270 




PUSH 


AF 


4AFE 21CBF7 


04280 




LD 


HL, TEXT 17 


4B01 CD13F4 


04290 




CALL 


PRINT 
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4B04 Fl 


04300 




POP 


AF 


4B05 FE31 


04310 




CP 


T 


4B07 280B 


04320 




JR 


Z,S13 


4B0? 1605 


04330 




LD 


D,5 


4B0B 010000 


04340 


S12 


LD 


BC,0 


4B0E CD6000 


04350 




CALL 


60H 


4BU 15 


04360 




DEC 


D 


4B12 20F7 


04370 




JR 


NZ,S12 


4B14 CD9D4B 


04380 


S13 


CALL 


WRITES 


4B17 201B 


04390 




JR 


NZ,S2 


4B19 21694C 


04400 




LD 


HL, BUFFER 


4B1C ED4BEBF7 


04410 




LD 


BC, '.FLEN) 


4B20 7E 


04420 


SI 


LD 


A, <HL) 


4B21 CD1F02 


04430 




CALL 


WRITEB 


4B24 3A40FS 


04440 




LD 


A, (0FS40H) 


4B27 CB57 


04450 




BIT 


2, A 


4B29 2009 


04460 




JR 


NZ,S2,. 


4B2B 23 


04470 




INC 


HL 


4B2C OB 


04480 




DEC 


BC 


4B2D 78 


04490 




LD 


A,B 


4B2E Bl 


04500 




OR 


C 


4B2F 20EF 


04510 




JR 


NZ,S1 


4B31 CI 


04520 




POP 


BC 


4B32 10C1 


04530 




DJN2 


Sll 


4B34 C3454A 


04540 
04550 


52 


JP 

* 


WSTART 




04560 




5 Vergl 


ei chen 




04570 




■ 




4B37 2194F6 


04580 


VERGLE 


LD 


HL,TEXT2 


4B3A CD13F4 


04590 




CALL 


PRINT 


4B3D CD8F4B 


04600 




CALL 


WAIT 


4B40 210FF7 


04610 




LD 


HL, TEXTS 


4B43 CD13F4 


04620 




CALL 


PRINT 


4B46 260F 


04630 




LD 


H,READV-READY 


4B48 2E18 


04640 




LD 


L, 1SH 


4B4A 226C4B 


04650 




LD 


< READY >,HL 


4B4B ED5BEBF7 


04660 




LD 


DE, <FL.EN> 


4B51 C36248 


04670 
04680 




JP 

* 


LAD , 


4B54 21A2F7 


04690 


VI 


LD 


HL,TEXT15 


4B57 FD222040 


04700 


V4 


LD 


(4020H), IY 


4B5B E5 


04710 




PUSH 


HL 


4B5C CDAC4A 


04720 




CALL 


CRCR 


4B5F El 


04730 




POP 


HL 


4B60 CD13F4 


04740 




CALL 


PRINT 


4B63 Dl 


04750 


V2 


POP 


DE 


4B64 C3454A 


04760 
04770 




JP 


WSTART 




04780 




; Fehler 




04790 




• 

> 




4B67 21A7F7 


04800 


V3 


LD 


HL, TEXTS 


4B6A 18EB 


04810 
04820 
04830 


■ 


JR 

; 


V4 


• 


04840 


w 

n 


Unterpr 


•ogramme fur Le 




04850 


* 






4B6C 1C 


04860 


READY 


INC 


E 


4B6D CBFB 


04870 




SET 


7»E ■ 


4B6F CDB24B 


04880 




CALL 


READB 


4B72 2S04 


04890 




JR 


Z,REND 



■■"nil. ■> \f\ fK 
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4B74 23 


04900 




IMC 


HL 


4B75 77 


04910 




LB 


(HL) ,fi 


4B76 12 


04920 




LB 


<DE>,A 


4B77 DO 


04930 




RET 


NC 


4B7S CI 


04940 


REND 


ROP 


BC 


4B7? 23 


04950 




INC 


HL 


4B7A C3FC48 


04960 
04970 


* 
5 


JP 


L22 


4B7D IB 


04980 


READV 


DEC 


DE 


4B7E 7A 


04990 




LB 


A,D 


4B7F B3 


05000 




OR 


E 


4B90 28D2 


05010 




JR 


2, VI 


4B82 CBB24B 


05020 




CALL 


READB 


4B85 23 


05030 




INC 


HL 


4B86 2SDB 


05040 




JR 


Z,V2 


4B88 380? 


05050 




JR 


C,V2 


4B8A BE 


05060 




CP 


(HL) 


4BSB C8 


05070 




RET 


Z 


4B8C C3674B 


05080 
05090 




JP 


V3 




05100 




; Unt 


erprogramme 




05110 








4BBF 212DF7 


05120 


WAIT 


LD 


HL,TEXTO 


4B92 CD13F4 


05130 




CALL 


PRINT 


4B95 CD2B00 


05140 


Wl 


CALL 


INCH 


4B98 FEOD 


05150 




CP 


CR 


4B9A 20F9 


05160 




JR 


NZ,W1 


4B9C C9 


05170 
05180 




RET 

■ 

» 




4B9B 06FF 


05190 


WRITES 


LB 


B,255 


4B9F 3EAA 


05200 


WR1 


LD 


A,OAAH 


4BA1 CD1F02 


05210 




CALL 


WRITEB 


4BA4 3A40F8 


05220 




LD 


A, (0FS40H) 


4BA7 CB57 


05230 




BIT 


2, A 


4BA9 CO 


05240 




PET 


NZ 


4BAA 10F3 


05250 




DJNZ 


WR1 


4BAC AF 


05260 




XOR 


A 


4BAD 3E66 


05270 




LD 


A,66H 


4BAF C31F02 


05280 

05290 




JP 

* 


WRITEB 


021 F 


05300 
05310 


WRITEB 


EQU 

m 


021FH 


4BB2 D9 


05320 


READB 


EXX ' 


: -,-.• f.'n ■• . - 


4BB3 0608 


05330 




LD 


B,8 


4BB5 1600 


05340 




LD 


D,0 


4BB7 CDCF4B 


05350 


RBI 


CALL 


READB I 


4BBA 3806 


05360 




JR 


C,RB2 


4BBC 10F9 


05370 




DJN2 


RBI 


4BBE 04 


05380 




INC 


B 


4BBF 7A 


05390 


RB3 


LD 


A,D 


4BC0 D9 


05400 




EXX 




4BC1 C9 


05410 
05420 




RET 

• 




4BC2 78 


05430 


RB2 


LD 


A,B 


4BC3 FE08 


05440 




CP 


8 


4BC5 28F8 


05450 




JR 


Z,RB3 


4BC7 CB22 


05460 


RB4 


SLA 


D 


4BC9 10FC 


05470 




DJN2 


RB4 


4BCB 37 


05480 




SCF 


i 


4BCC 04 


05490 




INC 


B ''■• 



f J ****yO j ^ 11 > ' 
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4BCD 


18F0 


05500 
055 1 




JR 

« 


RB3 


4BCF 


C5 


05520 


READBI 


RUSH 


BC 


4BD0 


BBFF 


05530 




IN 


A, (OFFH) 


4BD2 


F.601 


05540 




AND 


01 


4BD4 


5F 


05550 




LD 


E 5 A 


4BD5 


0E00 


05560 




LD 


C,0 


4BD7 


0D 


05570 


Rl 


DEC 


c 


4BD8 


280B 


05 5 BO 




JR 


Z,RBII 


4BDA 


DBFF 


05590 




IN 


A, (OFFH) 


4BDC 


E601 


05600 




AND 


01 


4BDE 


AB 


05610 




XOR 


E 


4BDF 


IF 


05620 




RRA 




4BE0 


30F5 


05630 




JR 


NC,R1 


4BE2 


C 3080 2 


05640 




JP 


020SH 


4BE5 


3AF6F7 


05650 


RBI1 


LD 


. A, (BF) . 


4BE6 


A7 


05660 




AND 


A 


4BE9 


2307 


05670 




JR 


Z,RBI2 


4BEB 


3A40F8 


05680 




LD 


A, <OFB40H> 


4BEE 


CB57 


05690 




BIT 


2, A 


4BF0 


28E5 


05700 




JR 


Z,R1 


4BF2 


CI 


05710 


RBI2 


POP 


BC 


4BF3 


37 


05720 




SCF 


■ 


4BF4 


C9 


05730 
05740 




RET 

* 




4BF5 


3AF6F7 


05750 


READS 


LD 


A, <BF> 


4BF8 


32F7F7 


05760 




LD 


(BFS),A 


4BFB 


3E01 


05770 




LD 


A,i 


4BFD 


32F6F7 


05780 




LD 


(BF),A 


4 COO 


E5 


05790 




PUSH 


HL 


4C01 


D5 


05800 




PUSH 


DE 


4C02 


C5 


05810 




PUSH 


BC 


4C03 


3E05 


05820 




LD 


A, 5 


4C05 


3226F0 


05830 




LD .. 


(0F026H),A 


4C03 


3227F0 


05B40 




LD 


(0F027H),A 


4C0B 


01AA80 


05350 


RSI 


LD 


BC,080AAH 


4C0E 


CDCF4B 


05860 


RS2 


CALL 


READBI 


4C11 


381A 


05870 




JR 


C,RS3 


4C13 


B9 


05880 




CP 


C 


4C14 


20F5 


05890 




JR 


NZ,RSi 


4C16 


3EFF 


05900 




LD 


A, 255 


4C18 


A9 


05910 




XOR 


C 


4C19 


4F 


05920 




LD 


C,A 


4C1A 


10F2 


05930 




DJNZ 


RS2 


4C1C 


CDCF4B 


05940 


RS4 


CALL 


READBI 


4C1F 


380C 


05950 




JR 


C,RS3 


4C21 


FE66 


05960 




CP 


66H 


4C23 


20F7 


05970 




JR 


NZ,RS4 


4C25 


3E2A 


05980 




LD 


A, '*' 


4C27 


322644 


05990 




LD 


(4426H),A 


4C2A 


322744 


06000 




LD 


(4427H),A 


4C2D 


Ct 


06010 


RS3 


POP 


BC 


4C2E 


Dl 


06020 




POP 


DE 


4C2F 


El 


06030 




POP 


HL 


4C30 


3AF7F7 


06040 




LD 


A, (BFS) 


4C33 


32F6F7 


06050 




LD 


(BF),A 


4C36 


C9 


06060 
06070 




RET 

• 


i 


0032 




06080 




DEFS 


so ; 


4C69 




06090 


BUFFER 


EQU 


* ! 
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06100 








F400 


06110 
06120 




ORG 


0F400H 




06130 




; Druck 


er (Ein/Aui 




06140 




* 

> 




F400 3AFSF7 


06150 


DREA 


LD 


A, <DF) 


F403 EEFF 


06160 




XOR 


255 


F405 32F8F7 


06170 




LB 


(DF>,A 


F403 3A7FF5 


06180 




LD 


A, (DA) 


F40B EE64 


06190 




XOR 


'd' ; ' ? 


F40D 327FF5 


06200 




LD 


(DA), A 


F410 C30048 


06210 
06220 




JP 

• 


START 


F413 7E 


06230 


PRINT 


LD 


A, (HL) 


F414 A7 


06240 




AND 


A 


F415 23 


06250 




INC 


HL 


F416 2609 


06260 




JR 


2 , PR2 


F41S FEFF 


06270 




CP 


255 


F41A 2812 


06280 




3f: 


i,PR3 


F41C CD3BF4 


06290 




CALL 


OUTCH 


F41F 18F2 


06300 
06310 




JR 

; 


PRINT 


F421 D5 


06320 


PR2 


PUSH 


DE 


F422 CD2B0O 


06330 




CALL 


INCH 


F425 FE60 


06340 




CP 


60H 


F427 CC2B00 


06350 


PR1 


CALL 


Z,INCH 


F42A 2SFB 


06360 




JR 


Z,PR1 


F42C Dl 


06370 




POP 


DE 


F42D C9 


06380 
06390 




RET 

• 




F42E C5 


06400 


PR3 


PUSH 


BC 


F42F 46 


06410 




LD 


B, (HL) 


F430 23 


06420 




INC 


HL 


F431 7E 


06430 


PR4 


LD 


A, (HL) 


F432 CD3BF4 


06440 




CALL 


OUTCH 


F435 10FA 


06450 




DJNZ 


PR4 


F437 23 


06460 




INC 


HL 


F438 CI 


064"?0 




POP 


BC 


F439 18D8 


06480 
06490 




JR 

• 

9 


PRINT 


002B 


06500 


INCH 


EOU 


002BH 




06510 




• 




F43B D5 


06520 


(DUTCH 


PUSH 


DE 


F43C F5 


06530 




PUSH 


AF 


F43D CD3300 


06540 




CALL 


33H 


F440 Fl 


06550 




POP 


AF 


F441 57 


06560 




LD 


D,A 


F442 3AF9F7 


06570 




LD 


A, (DFLAG) 


F445 A7 


06580 




AND 


A 


F446 7A 


06590 




LD 


A,D 


F447 C43B00 


06600 




CALL 


NZ,3BH 


F44A Dl 


06610 




POP 


DE 


F44B C9 


06620 
06630 
06640 




RET 

* 
« 


■ 


F44C 7C 


06650 


PRH 


LD 


A,H 


F44D CD51F4 


06660 




CALL 


PRBYTE 


F450 7D 


06670 




LD 


A,L 


F451 F5 


06680 


PRBYTE 


PUSH 


AF 


F452 OF 


06690 




RRCA 





XOR 'D ; 



-rryjt.B/'j. , 
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F453 


OF 


06700 


RRCA 




F454 


OF 


06710 


RRCA 




F455 


OF 


06720 


RRCA 




F456 


CD5AF4 


06730 


CALL 


PRNIB 


F459 


Fl 


06740 


POP 


AF 


F45A 


E60F 


06750 PRNIB 


AND 


OFH 


F45C 


FEOA 


06760 


CP 


10 


F45E 


3802 


06770 


JR 


C,PN1 


F460 


C607 


06780 


ADD 


A, 'A ? ~'9'-l 


F462 


C630 


06790 PN1 


ADD 


A,'0* 


F464 


C33BF4 


06800 
06810 


3P 

■ 


DUTCH 


F467 


CD4CF4 


06820 PRHEX 


CALL 


PRH 


F46A 


3E48 


06830 


LD 


A, ? H ? 


F46C 


C33BF4 


06840 
06850 


JP 

• 


OUTCH 


F46F 


2AEFF7 


06860 PRBL 


LD -^ 


HL, aSTREC) 


F472 


7D 


06370 


LD 


A,L 


F473 


B4 


06880 


OR 


H 


F474 


ca 


06890 


RET 


Z 


F475 


D5 


06900 


PUSH 


DE 


F476 


215CF? 


06910 


LD 


HL,TEXTU 


F479 


CD13F4 


06920 


CALL 


PRINT 


F47C 


2AEDF7 


06930 


LD 


HL, (LSTRAC) 


F47F 


E5 


06940 


PUSH 


HL 


F480 


CB67F4 


06950 


CALL 


PRHEX 


F483 


3E2B 


06960 


LD 


A,'-' 


F485 


CD3BF4 


06970 


CALL 


OUTCH 


F488 


2AEFF7 


06980 


LD 


HL, <LSTREC) 


F49B 


CD67F4 


06990 


CALL 


PRHEX 


F48E 


Dl 


07000 


POP 


DE 


F48F 


A7 


07010 


AND 


A 


F490 


ED52 


07020 


SBC 


HL,DE 


F492 


Bl 


07030 


POP 


DE 


F493 


7C 


07040 . .. 


LD -- 


A.H 


F494 


A7 


07050 


AND 


A 


F495 


CO 


07060 


RET 


HZ 


F496 


7D 


07070 


LD 


A,L 


F497 


FE03 


07080 


CP 


3 


F499 


DO 


07090 


RET 


NC 


F49A 


C5 


07100 


PUSH 


BC 


F49B 


45 


07110 


LD 


B,L 


F49C 


04 


07120 


INC 


B 


F49D 


21E7F7 


07130 


LD 


HL,TEXT20 


F4A0 


CD13F4 


07140 


CALL 


PRINT 


F4A3 


2AF3F7 


07150 


LD 


HL, iLSTABl) 


F4A6 


7E 


07160 PRBL1 


LD 


A, <HL) 


F4A7 


CD51F4 


07170 


CALL 


PRBYTE 


F4AA 


3E48 


07180 


LD 


A, ? H> 


F4AC 


CD3BF4 


07190 


CALL 


OUTCH 


F4AF 


3E20 


07200 


LD 


A,' * 


F4B1 


CD3BF4 


07210 


CALL 


OUTCH 


F4B4 




07220 


INC 


HL 


F4B5 


10EF 


07230 


DJN2 


PRBL1 


F4B7 


CI 


07240 


POP 


BC 


F4B8 


C9 


07250 
07260 
07270 
07280 


RET 

# 
• 




F4B9 


EB 


07290 ENDE1 


EX 


DE,HL 
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F4BA CDBFF4 
F4BD EB 
F4BE C9 



F4BF 
F4C0 
F4Ci 
F4C4 

F4C8 
F4C9 
F4CA 
F4CB 
F4CD 
F4CE 
F4CF 
F4D0 
F4D3 
F4D6 



E5 
D5 
21694C 

ED5BEBF; 

19 

37 

Dl 

ED52 

El 

DO 

Dl 

21D6F7 

CD13F4 

C3414A 



F4D<? 


1C 


F4DA 


IF 


F4DB 


43 


F4FE 


OD 


F4FF 


CD 


F500 


4B 


F525 


OD 


F526 


OD 


F527 


28 


F54E 


OD 


F54F 


20 


F550 


FF 


F551 


26 


red 


B4 


F553 


20 


F554 


DB 


F555 


FF 


F556 


1A 


F557 


20 


F558 


DB 


F559 


20 


F55E 


8E 


F55F 


20 


F564 


CF 


F565 


DB 


F566 


20 


F573 


FF 


F574 


OD 


F575 


20 


F576 


DB 


F577 


20 


F579 


41 


F57C 


8E 


F57D 


20 


F57F 


20 


F582 


CF 


F5S3 


DB 


F584 


FF 



Te:<te 



07300 CALL 

07310 EX 

07320 RET 

07330 ? 
07340 ENDE PUSH 

07350 PUSH 

07360 LD 

07370 LD 

07380 ADD 

07390 SCF 

07400 POP 

07410 SBC 

07420 POP 

07430 RET 

07440 POP 

07450 LD 

07460 CALL 

07470 JP 
07480 
07490 
07500 
07510 
07520 TEXT! DEFB 

07530 DEFB 

07540 DEFM 

07550 DEFB 

07560 DEFB 

07570 DEFM 

07580 DEFB 

07590 DEFB 

07600 DEFM 

07610 DEFB 

07620 DEFB 

07630 DEFB 

07640 DEFB 

07650 DEFB 

07660 DEFB 

07670 DEFB 

07680 DEFB 

07690 DEFB 

07700 DEFB 
07710 - - ■ ■■■ DEFB 

07720 DEFM 

07730 DEFB 

07740 DEFM 

07750 DEFB 

07760 DEFB 

07770 DEFM 

07780 DEFB 

07790 DEFB 

07800 DEFB 

07810 DEFB 

07820 DEFM 

07830 BA DEFM 

07840 DEFB 

07850 DEFM 

07860 DA DEFM 

07870 DEFB 

07880 DEFB 

07890 DEFB 



ENDE 
DE,HL 



HL 

DE 

HL, BUFFER 

DE. (FLEN) 

HL,DE 

DE 

HL,DE 

HL 

NC 

DE 

HL,TEXT19 

PRINT 

LI 10 



1CH 
1FH 

'COPBIT V3.0 Kassettenkopierprogramm' 

CR 

CR 

'Kopiert beliebige Kassetten bitweise.* 

CR 

CR 

'(C) 1984 Luidger Roeckrath, 5100 Aachen' 

CR 



255 

38 
180 

219 
255 

26 



219 
> 

142 

207 

219 



tfj* fi t * ■ 



.&*'< 



. 1 jWr" Jf ■ 



Funktionen: ' 



255 

13 

219 



'A ' 

142 

> j 

> j 

207 
219 
255 
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F585 1A 


07900 


DEFB 


26 


F586 20 


07910 


DEFB 


y ? 


F587 DB 


07920 


DEFB 


21* 


F58B 20 


07930 


DEFM 


^ 


F58D 8E 


07940 


DEFB 


142 


F58E 20 


07950 


DEFM 


j 


F593 CF 


07960 


DEFB 


207 


F594 DB 


07970 


DEFB 


219 


F595 FF 


07980 


DEFB 


255 


F596 26 


07990 


DEFB 


38 


F597 B5 


08000 


DEFB 


181 


F59S CF 


OB010 


DEFB 


207 


F599 DB 


08020 


DEFB 


219 


F59A FF 


08030 


DEFB 


255 


F59B 26 


08040 


DEFB 


38 


F59C 20 


08050 


DEFB 


7 7 


F59D CF 


08060 


DEFB 


207 


F59E DB * 


•v i 08070 


■ - DEFB 


219 


F59F 20 


0B080 


DEFM 


;» 


F5AC FF 


08090 


DEFB 


255 


F5AD 19 


08100 


DEFB 


25 


F5AE 20 


08110 


DEFB 


3 * 


F5AF CF 


08120 


DEFB 


207 


F5B0 DB 


08130 


DEFB 


219 


F5B1 FF 


08140 " 


DEFB 


255 


F5B2 26 


08150 


DEFB 


38 


F5B3 20 


08160 


DEFB 


? ? 


F5B4 CF 


08170 


DEFB 


207 


F5B5 DB 


08180 


DEFB 


219 


F5B6 20 


08190 


DEFM 


^ 


F5CF FF 


08200 


DEFB 


255 


F5D0 OD 


08210 


DEFB 


13 


F5D1 20 


08220 


DEFB 


J J 


F5D2 CF 


08230 


DEFB 


207 


F5D3 DB 


08240 


DEFB 


219 


F5D4 FF 


., _ 08250 


:,,;. DEFB 


255 


F5D5 26 


08260 


DEFB 


38 


F5D6 20 


08270 


DEFB 


? * 


F5D7 CF 


08280 


DEFB 


207 


F5D8 DB 


08290 


DEFB 


219 


F5D9 20 


08300 


DEFM 


^ 


F5EE FF 


08310 


DEFB 


255 


F5EF 11 


08320 


DEFB 


17 


F5F0 20 


08330 


DEFB 


? ? 


F5F1 CF 


08340 


DEFB 


207 


F5F2 DB 


08350 


DEFB 


219 


F5F3 FF 


08360 


DEFB 


255 


F5F4 26 


08370 


DEFB 


38 


F5F5 20 


08380 


DEFB 


? j 


F5F6 CF 


" 08390 


DEFB 


207 


F5F7 DB 


08400 


DEFB 


219 


F5F8 20 


08410 


DEFM 


> 


F61E CF 


08420 


DEFB 


207 


F61F DB 


08430 


DEFB 


219 


F620 FF 


08440 


DEFB 


255 


F621 26 


08450 


DEFB 


38 


F622 20 


08460 


DEFB 


? > 


F623 CF 


08470 


DEFB 


207 


F624 DB 


08480 


DEFB 


219 


F625 20 


08490 


DEFM 


r 



■►•"•■^""(frff-. ■ . "■ w 'rfvi -.w-,"/ '>•'**, -<■*«,• : 's-^tntt.v 



a d e n' 



■:'V> e r g 1 e i c h e n' 



t. -„ ! U *f't."V riT ■ '-s.JViHA.'i. _j 



t-"V- *$Xi > '*■'*- 



chreiben' 



ehlertape laden * 



<A> utomatik (E i n / A u s) 
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r> *>, •» 



F64B 


CF 


F64C 


DB 


F64B 


FF 


F64E 


26 


F64F 


20 


F650 


CF 


F651 


DB 


F652 


20 


F678 


CF 


F679 


DB 


F67A 


FF 


F67B 


26 


F67C 


20 


F67D 


CF 


F67E 


20 


F67F 


FF 


F680 


26 


F681 


B5 


F682 


20 


F683 


00 


F684 


1C 


F685 


IF 


F686 


4B 


F6A6 


OD 


F6A7 


OD 


F6A8 


00 


F6A9 


OD 


F6AA 


OD 


F6AB 


4C 


F6BC 


00 


F6BD 


1C 


F6BE 


IF 


F6BF 


4B 


F6DD 


OD 


F6DE 


OD 


F6DF 


00 


F6E0 


4C 


F6EF 


OD 


F6F0 


OD 


F6F1 


00 


F6F2 


OD 


F6F3 


OD 


F6F4 


53 


F70B 


OF 


F70C 


OD 


F70D 


OD 


F70E 


00 


F70F 


56 


F72A 


OD 


F72B 


OD 


F72C 


00 


F72D 


57 


F74B 


OD 


F74C 


OD 


F74D 


00 


F74E 


OD 


F74F 


DC> 


F75B 


00 


F75C 


OD 


F75D 


42 



08500 

03510 

08520 

08530 

03540 

08550 

0B560 

08570 

08580 

08590 

08600 

08610 

08620 

08630 

08640 

08650 

08660 

08670 

08680 

08690 

08700 

08710 

08720 

08730 

08740 

08750 

08760 

08770 

08780 

08790 

08800 

08810 

08820 

03830 

0B840 

08850 

08860 

08870 

08880 

08890 

08900 

08910 

08920 

08930 

08940 

08950 

08960 

08970 

08930 

08990 

09000 

09010 

09020 

09030 

09040 

09050 

09060 

09070 

09080 

09090 



TEXT2 



TEXT3 



TEXT4 



TEXT6 
TEXT6A 



TEXT7 



TEXTS 



TEXTO 



TEXT 10 



TEXT11 



DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFE 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFB 

DEFB 

DEFM 

DEFB 

DEFB 

DEFM 



207 
219 
255 
38 

207 
219 



207 
219 
255 



!D> r li c k e r CE i n / A u s) 



38 

207 

255 

33 

181 



1CH 

1FH 

' Kassettenrecorder auf Wiedergabe* 

CR 



CR 

CR 

'Laenge des Files:* 



1CH 

1FH 

' Kassettenrecorder auf Auf nahtne' 

CR 

CR 



'Laden. . . * 

CR 

CR 



CR 

CR 

'Schreiben.. .*.■*--,--• 

15 

CR 

CR 



'Vergleichen...* 

CR 

CR 



'Weiter. Bitte < ENTER > druecken* 

CR 

CR 



CR 

T Systemf i le: * 



CR 

'Block : ' 



■.»■-;«.• .ii=. -».• ifcit* v-i 



2.4.2 Kopierprogramm COPBIT - Quel Iprcgramm 



Seite 153 



F769 


00 


09100 


DEFB 







F76A 


OD 


09110 TEXT IS 


DEFB 


CR 




F76B 


7A 


09120 


DEFM 


* sus. Bytes: ' 




F777 


00 


09 1 30 


DEFB 


o 




F778 


OD 


09140 TEXTI2 


DEFB 


CR 




F779 


45 


09 1 50 


DEFM 


•'Entry : ' 




F785 


00 


09160 


DEFB 


o 




F786 


21 


09170 TEXT13 


DEFM 


' ! ! ! Fehler ! ! ! ' 




F794 


00 


09130 


DEFB 







F795 


42 


09190 TEXT14 


DEFM 


'Basic-file : " 




F7A1 


00 


09200 


DEFB 


a 




F7A2 


4B 


09210 TEXT15 


DEFM 


'Kein ? 




F7A7 


56 


09220 TEXT5 


DEFM 


' Vsrqleichsf ehler' 




F7B7 


OD 


09230 


DEFB 


CR 




F7B8 


OD 


09240 


DEFB 


CR 




F7B9 


00 


09250 


DEFB 


! 




F7BA 


4B 


09260 TEXT16 


DEFM 


' Kopisnanzahl ? * 


* f toVH 1 -- "*f £!*■* i 


F7C9 


OE 


09270 


DEFB 


14 




F7CA 


00 


09 2 80 


DEFB 







F7CB 


30 


09290 TEXT17 


DEFM 


? 0. Kopie' 




F7D3 


OD 


09300 


DEFB 


CR 




F7D4 


OD 


09310 


DEFB 


CR 




F7D5 


00 


09320 


DEFB 







F7D6 


OD 


09330 TEXT 19 


DEFB 


CR 




F7D7 


46 


09340 


DEFM 


' Fi le zu kurz . * 




F7E4 


OD 


09350 


DEFB 


CR 




F7E5 


OD 


09360 


DEFB 


CR 




F7E6 


00 


09370 


DEFB 







F7E7 


20 


09380 TEXT20 


DEFM 


» . * 

m 




F7EA 


00 


09390 


DEFB 







F7EB 


0000 


09400 FLEN 


DEFW 







F7ED 


0000 


09410 LSTRAC 


DEFW 







F7EF 


0000 


09420 LSTREC 


DEFW 


! 




F7F1 


0000 


09430 LSTAD 


DEFW 


o 




F7F3 


0000 


09440 LSTAD 1 


DEFW 


o ...... ■+.-. ■■-■-•■ ■ 


' v/ t'j-li*"*';.*'*'! *' "" 


F7F5 


00 


09450 CSF 


DEFB 


■ 




F7F6 


00 


09460 BF 


DEFB 







F7F7 


00 


09470 BFS 


DEFB 







F7F8 


00 


09480 DF 


DEFB 


: 




F7F9 


00 


09490 DFLAG 


DEFB 


; 




F7FA 


00 


09500 CF 


DEFB 


: 




F7FB 


00 


09510 FTF 


DEFB 







F7FC 


00 


09520 AFF 


DEFB 


i 




4800 




09530 


END 


START ' 




00000 TOTAL 


ERRORS 




1 




21954 TEXT 


AREA BYTES LEFT 









*T.' i )i-;,Tri.Tv:vw»-*-> * '-"" 



1 r^jN (»•■"• 



ijj ;,* ■»■..'(.» *.-«..■• lit.!,' ' !>H.» ' 
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2.5.1 Kopierprogramm SAVETAPE 



S A VET APE ermogl icht Kopieren fast, al ler Hasch inenprogramme 
von Kassette auf Diskette. Hasch inenprogramme , die nicht 
mi t Speicherbereichen kol 1 id i eren , die das System benotigt , 
konnen unverandert Ubernommen uerden , andere konnen 
verschoben uerden und uerden mi t einem Zusatz versehen , der 
nach dem Laden das DOS abscha 1 tet und das Programm i n den 
r icht i gen Speicherbereich versch iebt . 



Funkt ion 



Savetape ladt von Kassette uie COPBIT Csiehe dort) . Im 
Speicher ui rd das Programm abgelegt , uie es auf der 
Kassette mat al 1 en Headern auf gezei chnet uar Csiehe C2) : 
Tei 1 1.7). Bei der Aufzeichnung auf Diskette muB das Format 
in das DOS-Loaderf ormat (siehe Teil 1, Kapitel 3.5) 
umgeuande It uerden . Dies geschieht in der groBen Schleif e , 
die bei SI beginnt. Blbcke mit der Anf angsadresse 41E2H 
uerden abgef angen , und die Adresse des Sprung bef ehl es i n AE 
gerettet . Nach dem Entrypointblock uird der Entrypoint 
durch diese Autostart adresse ersetzt . 

JluB das File verschoben uerden, so uird das gesamte File so 
auf Diskette auf gezeichnet , da8 es spater in den 
Speicherbereich von der Versch i ebeadresse an auf uar ts 
geladen uird. Fur jeden Block uird im Anhang die richtige 
Adresse und die Lange not iert . Nach dem Laden ui rd zunachst 
der Anhang CVERSCH) gestartet, der zuerst das DOS 
abscha 1 tet , indem er eine Initialisierung des 
Kassettenbasics simuliert. Dann uird ein Block nach dem 
anderen an seine richtige Adresse verschoben . 
Autostartbltfcke uerden beim verschobenen Aufzeichnen nicht 
uie oben behandelt sondern ganz normal verarbei tet . Beim 
■ Vertei len der Blocke nach dem Laden durch den Anhang uird 
also ein Au tost artb lock an seine richtige Speicher adresse 
Ubertragen. Damit ein Autostart uirksam uird, ruft der 
Anhang nach Versch ieben des gesamten Programmes die Adresse 
41E2H per CALL auf. Das gleiche tut der SYSTEH-Bef ehl nach 
Laden einer Aufzeichnung . Steht dort ein RET, uird nach 
Ruckkehr vom Unterprogrammauf ruf die richtige Star tadr esse 
angesprungen . 

Da SAVETAPE sehr umfangreich ist, muBte das Quel lprogramm 
fur den COLASM etuas beschnitten uerden. Dazu uurden alle 
Texte stark geklirzt. Die Or igi nal texte sind vor dem 
Quel Iprogamml ist i ng angegeben * AuBerdem mussen alle 
Kommentar und alle Leerzeichen, die syntaktisch nicht 
unbed ingt notuend ig sind gestr ichen , uerden urn mit dem 
ger ingen Speicher , den der COL ASH ubrig laBt auszukommen . 
Auf der Kassette ist SAVETAPE in dieser Form enthalten. 
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tin 



Art fner - kung s 



SAVETAPE benutzt verschiedene 
Colour-Genie-System eigentl ich 
reserv iert- sind. Ein Tei 1 von 
die f reiprogrammierbaren Ze ic 
manchmal klei ne Bi 1 dschirmstor 
i ntensive Ausnutzung des Speich 
(=6488H im 32K-System , im 16K 
fUr das zu kopierende File zur 



Speicherbereiche , die im 
fur bestimmte Systemauf gaben 
SAVETAPE ist im Speicher fur 
hen untergebracht » uodurch 
ungen auftreten . Durch diese 
er war es aber mogl ich 25736 
-System: 9352 = 2488H) Bytes 
Verf Qgung zu stel len . 



.*^# l^ -* 1*p f .^^ **W * 



-u+ **f m *^-*l« l^v*;. ~»*t ' 



„ v*.£^F J** Djf ^* t ,-c ^^f'** *y ';^h>' ( - *t—* ip t+a ■ "*.j rf >*^'+.4"t fu *ftrv**-4-; 



Nachdem SAVETAPE gel aden i st , meldet sich das Haupmenue : 



* ***** 



SAVETAPE VI .0 






Kopiert Kassettenprogramme auf Diskette. 
CO 1984 Luidger Roeckrath, 5100 Aachen 



I Funktionen 



I 
I 

I 
I 
I 

I 

I 
I 
I 
I 
I 
I 
I 
+ ■ 



■ + • 
I 



■ + ■ 
I 



■ + 
I 



* i ttt 



T SAv , - *.* / : JfW * t- 



<L> aden 

i 

<V> ergleichen \ 

<S> peichern auf Disk 
<F> ehlertape laden 
<A> utomatik (E i n / A u s) 
<D> rucker CEin/Aus) 



■ -T'-.'if .- -;. r f ,-4^ '.!.>,, ■ ' t,** , .. -n... 



K JS , " IV i ■»*«■ ■* ■ tf \ £*V7 rzi 



Durch Ant i ppen der Buchstaben in <> kann die entsprechende 
Funktion angeuahlt uerden . Ist die jeueilige Funktion 
beendet „ uird automatisch ins Hauptmenue zurUckgekehrt . 

In den beiden Hasten hinter "Funktion:" uird der Zustand 
der Flags filr die Automatik und den Drucker angezeigt. "A" 
bedeutet Automatik an, "D" bedeutet Drucker ein. 
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Nach der Auff order ung » ' den K asset, ten recorder 
uiedergabebereit zu machen und der en Best at, igung , begi nnt 
SAUETAPE das Programm zu lesen . Sobald der Header erkannt 
uurde , erscheinen in der oberen , rechten Bi Idschi rmecke die 
zuei Sterne. Das Fi le uird von da an Byte fur Byte 
eingelesen und im Speicher abgelegt. Sollte eine 
Auf zeichnung am Ende kein vol 1 stand iges Byte mehr haben 
Cbei geschutzten Formaten) , uerden auch die restl ichen Bits 
richtig geladen und gespeichert. 

Uahrend des Ladens 1 auf t in der Bi Idsch irmmi tte der 
eingelesene Text durch. Ueiterhin uird bei Systemfiles ein 
F gefolgt vom Filenamen, ein B fur Jeden Block und ein E 
fur den Entrypointblock angezeigt. 

Beispiel : C0LI10N 

FCOLMONBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE 



Das Laden uird unter folgenden Bedi ngungen gestoppt : 

1) Automatik Ein CStartbedingung) 

sobald eine Pause in der Aufzeichnung auftritt. 

2) Automatik Aus i 



sobald 
uird . 



ei ne Pause auftritt und die < BREAK >-Taste gedruckt 



Ui 1 1 man den Lade vor gang mitten in ei ner Aufzeichnung 
beenden , kann man die Pause durch Anhalten des 
Kassettenrecor der erzeugen . Auch uenn der Header gesucht 
uird, also bevor die zuei Sterne erscheinen, i st es 
mogl ich y den Lade vor gang abzubrechen . Hier ist nur 
erforderlich die <BREAK>-Taste zu drlicken, der 
Kassettenrekorder braucht n icht angehal ten zu uerden . 
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Analyse der geladenen Aufzeichung 



Nach Beendigung des Ladevorgangs uird die geladenen 
Aufzeichnung analysiert. Da be i uird f estgestel It , ob es 
sich um ein System- oder Basicfile handelt: 



1 ) Systemf i le: 



■"j Irt' ifi** 



Das Format ftir Systemf i les 
Colou? — Genie-ROn-Listing) : 



i st f ol gendes Csiehe auch 



Fi lename 
* Block: 

Entry: 



55H 6 Bytes Fi lename 

3CH LSnge Startadresse CLSB/MSB) Datenbytes- 

Pruf summe 

78H Entrypoint CLSB/IISB) 



TV^+V* ***&■*-*# i ?r t j i f .„*«> f+ 



Beispiel: COLMON <6000H-6FFFH> 



Fi lename 
Block 



Block 
Entry 



55H 43H 4FH 4CH 4DH 4FH 4EH - 55H COLMON 
3CH 80H 00H 60H C 1 28 Datenbytes) (Prufsumme) 

= 6000H-607FH 
<30 ahnliche B16cke> 
3CH 89H 80H 6FH C128 Datenbytes) (Prufsumme) 

= 6F80H-6FFFH 
?8H 00H 60H = 6000H 



SAVETAPE erkennt automatisch das Systemformat und gibt 
obi gen Beispiel aus: 



in 



Systemf i le 

Block 

Entry 



COLMON 

6000H-6FFFH 

6000H 



•1-ACJ j. t„-'.',M - r tj 



• •\* 'j^ t>*!>ri" ,K', 



Bi lden mehrere Blocke des Systemf i 1 es einen 
zusammenhMngenden Speicher block , uird nur d ieser angezeigt 
Csiehe Beispiel . > . 

Bei Bl ocken zuischen 1 und 3 Bytes Lange uird zusa'tzli ch 
der Inhalt des Blocks angezeigt . Da diese Blocke oft 
Sprungvektoren sind , die Liber schri eben uerden , ist diese 
Information besonders uertvol 1 . Ein Sprungbef eh 1 der auf 
die Adresse 41E2H-41E4H gel aden uird , bedeutet einen 
Autostart. Sie konnen also sofort die Startadresse eines 
Programmes mi t Autostart ablesen , z . B . : 



Block 



41E2H-41E4H 



C3H E8H 41H 



bedeutet , da0 sobald der Entry im Systemf i le erre icht , 
automatisch die Adresse 41E8H angesprungen uird. 

Bei fehlerhaften Bldcken uird nur der Block des 
Systemf i les, der den Fehler enthielt, entsprechend markiert 
ausgedruckt : 



Systemf i le 

Block 

Block 



COLMON 
6000H-637FH 
6380H-63FFH! ! ! 



Fehler 



» t i 

* * + 



1 
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t+&*rn *» * •» *. ,. % v 



Block 
Entry 



6400H-6FFFH 
6000H 



Vor jedem Block (55H, 3CH , ?8H) konnen 
stehen , die vom System-Loader im ROH 
uerden . SAUETAPE zeigt deren Anzahl 
erscheint auch hauf ig d iese Anzei ge : 



zusatsl iche Bytes 

ei nf ach Liber lesen 

an » Bei Fehler 



Systemf i le 

Block 

Block 

zus. Bytes 

Block 

Entry 



COLMON 

6000H-637FH 

6380H-63FFH! t ! 

0073H 

6480H-64FFH 

6000H 



Fehler 



Auch nach dem Entry konnen 
zusatzl iche Bytes auf treten * 



2) Basi cprogramme 



bei geschiitzten For ma ten 



Basi cprogramme uerden folgendermaSen aufgezeichnet 

Fi lename : 1 Byte 

Basictext, uie im Speicher einschl ieBl ich der drei 

Ende . 

CSiehe Co lour-Genie-ROM-Li sting) 



* \ i * * » 1*. 



am 



Basi cprogramme en thai ten kei ne PrUf summe , aber durch das 
Poi nter system < jede Zei le enthalt einen Pointer auf die 
nachte Zei le) kann die geladene Auf zeichnung im geuissen 
Rahmen geprlif t uerden , uobei es unerhebl ich ist , uo das 
Basicprogramm vorher im Speicher stand. 

Beispiel : Demoprogramm 

Basicf i le : D 



*Bei Fehlern im Poi nter system ui rd f Ur jeden f alschen 
, Pointer die Mel dung Fehler ausgegeben :* 



i ,-"*». ia /.* «- * K-'rhif *+*. w J** i j*- *■*■**»- \ii*i >*■ • *t»* 



Basicfile: D 
!!! Fehler *** 
!♦♦ Fehler !!! 



Bei bei den Fi letypen kann eine ueitere Feh lermeldung 
erscheinen : 



File zu kurz. 



Diese erscheint zum Beispiel > uenn ein Systemprogramm 
mitten im Block abbricht oder der Entry feh It und bei einem 
Basicprogramm, uenn die drei am Ende fehlen. 

Bei Datenauf zeichnungen kann entueder nichts erscheinen 
oder es kann zufallig als einer der Fi letypen erkannt 
uerden. Dann erscheinen h5chstuahrscheinl ich zahlreiche 
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Fehlermeldungen . 

Ei ne gel adene Aufzei chung seht bis zum nachsten Laden fiir 
Vergleiche und zum Auf zeichnen zur Verfugung 

Die Anal yse des F i les ui rd bei ei ngeschaltetem Drucker ( <D> 
im Hauptmenue) paralel 1 zur Bi ldschi rmausgabe auf den 
Drucker ausgegeben . 



V«i-qX s 



Die in den Speicher gel adenen Auf zei chung kann mi t ei ner 
ueiteren v/erglichen uerden. Abbruch uie beim Laden und 
automatisch beim 1 . Ladef ehl er . Beim Vergl eichen uird der 
ei ngelesene Text n icht auf dem Bi ldschi rm angezeigt . Die 
Anzeige "Fname BBBBBBBBBBE" erscheint, uenn das zu 
vergleichende File mit "L" geladen uurde, und nicht, uenn 
es mit "F" gel aden uurde . 



i--w ►"*>** ***>**' 



hrei fc>en 



Das Format fiir Systemf iles auf Diskette i st f ol gender ma Ben 



(Filename steht nur in Direktory!) 

Block : 81 LSnge Startadresse (LSB/tlSB) Datenbytes 

Entry : 02 02 Einsprungadresse 

Die Lange eines Blockes gilt einsch 1 ieB 1 ich 

Startadresse. Daher entspricht 00 = 254 Datenbytes, 

255 und 02 =256! > 



Beispiel: COLMON 



^•j.fc "w>^ 



der 

01 =* 



Block : 01H 82H 00H 60H CI 28 Datenbytes) 

< 30 ahnliche Blocke > 
Block : 01H 82H 80H 6FK C128 Datenbytes) 
Entry : 02H 02H 00H 68H I 



S A VET APE setzt das oben beschr i ebene Kassettenf or mat i n das 
Diskettenf or mat urn. Viele Spiel programme be 1 egen 
Speicherbereiche , die das Disk -Basic auch benot i gt . Ein 
d irektes Laden auf diese Bereiche von Disk utirde a lso zu 
einem Systemabsturz f Uhren . Daher bietet S A VET APE nach der 
Abfrage des Filenamen, uelche mit einem korrekten Filenamen 
(Fi lename</Typ< .Passuord< : d>>>) beantuortet uerden muB , die 
IlSglichkeit das Programm zu Verschieben. Uenn diese 
H8glichkeit geuahlt uird Cdurch <J>), uird das gesamte 
Programm C auch uenn es aus v/erschiedenen Speicherberei chen 
besteht) in einem Block startend mit der bei der Frage 
"neue Ladeadresse" hexdezirna 1 angegebenen Ad r esse C < ENTER > 
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*= S000D auf Diskette gespeichert. Dahinter uird ein Zusatz 
gehangt , der beim Auf ruf des Programmes mit Ct1D"S fi lename" 
d i eses nach Abschalten des DOS ui eder in die 
Speicherbereiche iibertragt, in denen es urspriinglich 
lokal isiert uar . En try point, und Autostart uerden beachtet , 
so daB das Programm nach Laden und Verschieben 
ordnungsgemaB gestartet uird . j 

Ein Versch i eben i st be i all en Pr ogrammen notuend i g , die 
Blocke haben > die unter 5C9AH laden, da das DOS den 
Speicherbereich 580 0H- f ol gender ma Ben nutzt : 



5800H-5B77H 



5B78H-5C99H 



5C9AH-5DBBH : 

5DBCH-5EDDH : 
5EDEH-5FFFH : 

6000H- : 

Best immte 
Bausrateumsch 
verarbeitet . 
zahl reiche " 
empf ehlen * 



hi «s?i- 



allgemeine Veruendung: Disk-Basic - DOS 

nicht genau bekannt 

Filebuffer "0" : FCB und Sektorbuffer 

C5B9AH-5C99H> fur CMD"S", CI1D"L M > SAVE, LOAD, 

etc . 

Fi lebuf f er 1 f Ur Disk-Basic 

OPEN A*, 1 ,F* I 

F i lebuf fer 2 di to 

Fi lebuf fer 3 dito 

Cbei mehr als 3 

Programm text 



Files entsprechend ueiter) 



Formate mit Preloader und/oder 
altung uerden erkannt und entsprechend 

Bei diesen For mat en Czu erkennen durch 
zus . Bytes" > ist ein Verschieben immer zu 



e 1 



Die komplexen AnalysevorgSnge beim Laden machen das Laden 
mit SAVETAPE etuas kritischer als das normale Einladen mit 
CLOAD oder SYSTEM. Deshalb kann mit <F> eine ueitere 
Laderoutine aufgerufen uerden, die uahrend des Laden nur 
den Text durch 1 auf en laBt, aber nicht "Fname BBBBBE" 
ausdruckt. Dadurch uerden viele languierige Operationen 
eingespart und das Laden ist erhebl ich unkr i t ischer . Bei 
Ladeproblemen he If en im ubrigen oft auch f olgende Tips: 



1 > Hohen auf Maximum ' 

2> Tonkopf justage: UShrend der Uiedergabe auf maximale 

Hohenuiedergabe Cdeutlich zu horen) abstimmen. Nach 

erf olgreichem Laden uieder auf Ihre Standardeinstel lung mit 

einer Ihrer alten Kassetten einstellen und dann die Kopien 

anf ert igen . 

3) Lautstarke : Bei manchen Auf zeichungen hi If t starkes 

libersteuern , bei anderen aber eher eine etuas niedrigere 

Uahl der Lautstarke <2) . 
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A«-A 



i ^w Jmr W^vt 



Die Automat, i k ( Abbruch des Laden » uenn eine Pause auf tr i tt ) 
kann abgeschaltet uerden, uenn eine Aufzeichnung mit Pausen 
geladen uerden soil. Beim Starten des Programmes ist die 
Automatik ein. Durch Eingabe einer <A> im Hauptmenue kann 
si e ab- und ui eder eingescha 1 tet uerden . Der Zustand des 
Automatikf lags kann im Hauptmenue jederzeit im linken 
Hasten abgelesen uerden . 



■ i— me l<«n— 



f. 1. 1 ". 
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Die Analyse eines geladenen Files kann uahlueise auf einen 
Drucker zusatzl ich ausgedruckt uerden . Uenn Sie d ies 
uiinschen » mliflen Sie im Hauptmenue das <D> anti ppen . Hit der 
gleichen Taste kcinnen Sie den Drucker uxeder abschalten. 
Der jeuei 1 ige Zustand kann im rechten Hasten abgelesen 
uerden . Bi tte achten Sie darauf, da0 be i ei ngescha 1 tetem 
Drucker , auch ui rkl ich ein Drucker angesch lossen und ON 
LINE ist . Sonst bleibt das Programm nach dem Laden stehen ! 



V— 
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TEXT1 



> t -£* ■<• -* h V 



BA 



DA: -"* 



Originaltexte von SAUETAPE 



Texte 



DEFB 


1CH 




DEFB 


1FH 




DEFM 


> 


^P ^P ^P *r ^P ^P t^J 


DEFB 


CR 




DEFB 


CR 




DEFM 


'Kop 


iert Kasset 


DEFB 


CR 




DEFM 


' CO 


1984 Luidg 


DEFB 


CR 




DEFB 


> j 




DEFB 


255 




DEFB 


38 




DEFB 


180 




DEFB 


> » 




DEFB 


219 




DEFB 


255 


.... . - -:- .>■■ 


DEFB 


26 




DEFB 


> i 




DEFB 


219 




DEFM 


> 


> 


DEFB 


142 




DEFM 


> 


> 


DEFB 


207 




DEFB 


219 




DEFI1 


' Funktionen : * 


DEFB 


255 




DEFB 


13 




DEFB 


y * 




DEFB 


219 




DEFM 


> > 




DEFM 


'A 


> 


DEFB 


142 




DEFI1 


* > 




DEFM 


» 


* , >« • »* tii J-, - 


DEFB 


207 




DEFB 


219 




DEFB 


255 




DEFB 


26 




DEFB 


> > 




DEFB 


219 




DEFH 


> 


> 


DEFB 


142 




DEFM 


> 


> 


DEFB 


207 




DEFB 


219 




DEFB 


255 




DEFB 


38 




DEFB 


181 




DEFB 


207 




DEFB 


219 




DEFB 


255 




DEFB 


38 




DEFB 


> > 




DEFB 


207 
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******' 



**'*rt*+\j '+& i 
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DEFB 


219 














DEFtl 


<L> 


a d 


e 


n' 








DEFB 


255 














DEFB 


25 














DEFB 


> > 














DEFB 


207 














DEFB 


219 














DEFB 


255 














DEFB 


38 














DEFB 


> i 














DEFB 


207 














DEFB 


219 














DEFtl 


<V> 


e r 


9 


1 e 


i chen' 






DEFB 


255 














DEFB 


13 












,v-l; * ' ,"\*" 


DEFB 
"' DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


* > 

207 
219 
255 

38 

> > 

207 
219 


, 11 1 -'.-»! 


•;1J< 




*■» ^i. > r v - ]*<« n. t , s-v *** ■ < f**i5*"ff i*" 


- V^ ■"" ■ * *1 " *"** . , .- *v '. 




DEFH 


* <s> 


c h 


r 


e i 


ben a u f D 


i s k * 




DEFB 


207 














DEFB 


219 














DEFB 


255 














DEFB 


38 














DEFB 


> > 














DEFB 


207 














DEFB 


219 














DEFM 


' <F> 


e h 


1 


e r 


■tape lad 


e n ' 




DEFB 


207 














DEFB 


219 












' <*' 


""" DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


255 

38 
* > 

207 
219 


j , - 


< -i 




i > « r ** 


.■ *■*. ". ttt—,- 1* 




DEFH 


* <A> 


u t 


o 


m a 


t i k (E i n / 


A u s) ' 




DEFB 


207 














DEFB 


219 














DEFB 


255 














DEFB 


38 














DEFB 


> > 














DEFB 


207 














DEFB 


219 














DEFM 


* <D> 


r u 


c 


k e 


r (E i n / A u 


s> 




DEFB 


207 














DEFB 


219 














DEFB 


255 














DEFB 


38 














DEFB 


t > 














DEFB 


207 














DEFB 


> > 














DEFB 


255 














DEFB 


38 














DEFB 


181 














DEFB 


> > 














DEFB 
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TEXT2: 


DEFB 


1CH 




DEFB 


IFH 




DEFI1 


* Kassettenrecorder auf Uiedergabe ' 




DEFB 


CR 




DEFB 


CR 




DEFB 





TEXT3: 


DEFB 


CR 




DEFB 


CR 




DEFM 


'Laenge des Files: ' 




DEFB 





TEXT4 : 


DEFB 


1CH 




DEFB 


IFH 




DEF11 


' Fi 1 ename ' 




DEFB 





TEXT5B: 


DEFM 


' Uersch i eben * 




DEFB 





TEXT5A : 


DEFM 


' Neue Ladeadresse * 




DEFB 





TEXT6: 


DEFM 


* L a d e n * . . * 


TEXT6A: 


DEFB 


CR 




DEFB 


CR 




DEFB 


W i-2 y .* \ * -+* -+ * * ■ ; t 


TEXT7: 


DEFM 


'Schreiben. . . ' 




DEFB 


CR 




DEFB 


CR 




DEFB 





TEXTS: 


DEFM 


'Uergleichen* . . ' 




DEFB 


CR 




DEFB 


CR 




DEFB 





TEXT0: 


DEFJ1 


'Ueiter. Bitte <ENTER> druecken' 




DEFB 


CR 




DEFB 


CR 




DEFB 





TEXT10: 


DEFB 


CR 




DEFH 


' Systemf i ie : ' 




DEFB 





TEXT 11 : 


DEFB 


CR 




DEFM 


'Block : ' 


TEXT18: 


DEFB 
DEFB 



CR 




DEFM 


' zus . Bytes : * 




DEFB 





TEXT12: 


DEFB 


CR 




DEFM 


'Entry : ' 




DEFB 





TEXT13: 


DEFM 


't!! Fehler ! ! ♦ ' 




DEFB 





TEXT14: 


DEFM 


'Basicfile : ' 




DEFB 





TEXT15: 


DEFM 


'Kein ' 


TEXTS: 


DEFM 


' Vergleichsf ehler * 




DEFB 


CR 




DEFB 


CR 




DEFB 





TEXT16: 


DEFM 


* 




DEFB 





TEXT17: 


DEFM 


1 : Disk-Fehler' 




DEFB 


CR 




DEFB 


CR 



(?V> ^W 7*H*«* ,*». * 



*- ^ *%*,•>!* |* + *',*EV** + 
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DEFB 8 

TEXT19: DEFB CR 

DEFM 'File zu kurz . ' 

DEFB CR 

DEFB CR 

DEFB 
TEXT20: DEFB 



> . > 



DEFB 

END - 



i ,^i t, * , * *, + -+ + ^ "* r i t ',r^ -t^j „ v -v * ' * ■ vi ** * t ,^ , **. p j ^ ^ i*v f t^ t z* *v * ~ + x v* v V-"**v '-pjv* t* ■*■ *~*fc?**(T* *«^ J t h 
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GOOD 



4800 

4800 
4801 
4804 
4806 
4809 
480B 
480E 
4811 
4Si4 
4817 
4819 
481B 
481D 
481F 
4821 
4823 
4826 
4828 
482B 
482D 
4830 
4832 
4835 
4837 
483A 



483C 
483D 
483E 
4841 
4844 
4847 
484A 
484D 
4850 
4853 
4856 
4859 
485C 
485F 



F3 

31EF57 

3E69 

321243 

3E03 

CBB03F 

21C6F4 

CD00F4 

CD2B00 

FE61 

3802 

D620 

FE4C 

281C 

FE53 

CAF94A 

FE56 

CA9351 

FE41 

CAB34A 

FE44 

CAE64A 

FE46 

CA3C48 

18DB 



3E 

AF 

3295F5 

21E8F4 

CD00F4 

210000 

2239F5 

2287F5 

CDEB5I 

211EF5 

CD00F4 

117F46 

211CCB 

22C851 



00 1 00 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 CR 

00220 

00230 

00240 

00250 

00260 

00270 ; 

00280 START 

00290 

00300 

003 10. 

00320 

00330 

00340 

00350 

00360 STi 

00370 

00380 

00390 

00400 ST2 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 FTAPEL 

00570 LADEN 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 



SAVETAPE Version 1.0 vom IS. 4. 84 

Kopiert Colour-Genie Kassetten aut Di skette 

<c) Luidger Rocfcrath 
Noppiusstr . 19; 

5100 Aachen 
(0241)34962 



EQU 



ODH 



. ASEG 
ORG 



DI 

LD 

LD 

LD 

LD 

CALL 

LD 

CALL 

CALL 

CP 

JR 

SUB 

CP 

OR 

CP 

JP 

CP 

JP 

CP 

JP 

CP 

JP 

CP~"" ' 

JP 

JR 



4800H 



5F,57EFH 

A, 105 

<4312H),A 

A,3 

3FB0H 

HL,TEXT1 

PRINT 

INCH 

>a' 

C,ST2 

? a'~'A' 

J L J 

2, LADEN 

? S r 

Z,SCHREI 

'V* 

I , VER6LE 

'A' 

Z,AUTOM 

? D' 

2,DREA 

' F ? 

Z, FTAPEL 

STI 



*IU*\ v> *t\* r* 



i^i'Ui **i Vi* *' ^v^i^^v^i i 



Fehlerha-Ftes Tape laden 



DEFB 3EH 

XOR A 

LD <FTF),A 

LD HL,TEXT2 

CALL PRINT 

LD HL,0 

LD <L5TREC),HL 

LD (LSTRAC)',HL 

CALL WAIT 

LD HL,TEXT6 

CALL PRINT 

LD DE,467FH 

LD HL,0CB1CH 

LD (READY), HL 



= LD A, 
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4862 FD2A2040 


00700 


LAB 


LD 


IY, <4020H) 


4866 3E55 


00710 




LD 


A,'U 7 


4868 32864S 


00720 




LD 


(Lit 10+1) ,A 


486B 21775B 


00730 




LD 


HL,BUFFER-1 


486E CD3C52 


00740 




CALL 


READS 


4871 DA4E4A 


00750 




JP 


C,LitO 


4874 3A95F5 


00760 




LD 


A, (FTF) 


4877 A7 


00770 




AND 


A 


4878 207D 


00780 




JR 


NZ,L1116 


487A CDC851 


00790 


LI 


CALL 


READY 


487D FE3C 


00800 




CP 


3CH 


487F 280A 


00810 




JR 


Z,LH11 


4881 FE73 


00820 




CP 


78H 


4883 2861 


00830 




JR 


Z,L1115 


4835 FE55 


00840 


LI 110 


CP 


55H 


4887 2844 


00850 




JR 


Z,L1114 


4889 18EF 


00860 




JR 


LI 


488B FD360042 


00870 


Lilll 


LD 


(IY+O) , 'B ? 


4SSF FD23 


00880 




INC 


IY 


4891 AF 


00890 




XOR 


A 


4892 3294F5 


00900 




LD 


<CF),A 


4895 CDC851 


00910 




CALL 


READY 


4898 47 


00920 




LD 


B,A 


4899 CDC851 


00930 




CALL 


READY 


489C 09 


00940 




EXX 




489D 6F 


00950 




LD 


L,A 


469E D9 


00960 




EXX 




489F CDCS51 


00970 




CALL 


READY 


48A2 D9 


00980 




EXX 




48A3 67 


00990 




LD 


H,A 


48A4 D9 


01000 




EXX 




48A5 CDC851 


01010 


L1112 


CALL 


READY 


48A8 D9 


01020 




EXX 




48A9 7C 


01030 




LD 


A,H 


48AA FE43 


01040 




CP 


43H 


48AC 7D 


01050 


■>! .--.- ■.-;, 


LD 


A,L 


48AD 23 


01060 




INC 


HL 


48AE D9 


01070 




EXX 




48AF 2010 


01080 




JR 


NZ,L1U3 


48B1 FE12 


01090 




CP 


12H 


48B3 200C 


01100 




JR 


NZ,L1U3 


48B5 7E 


OHIO 




LD 


A, (HL) 


48B6 321243 


01120 




LD 


(4312H),A 


48B9 3669 


01130 




LD 


(HL) , 105 


48BB ED44 


01140 




NEG 




48BB 86 


on 50 




ADD 


A, (HL) 


48BE 3294F5 


01160 




LD 


<CF) ,A 


48C1 10E2 


01170 


L1113 


DJNZ 


L1112 


48C3 CDC351 


01180 




CALL 


READY 


48C6 3A94F5 


01190 




LD 


A, (CF) 


48C9 86 


01200 




ADD 


A, (HL) 


48CA 77 


01210 




LD 


<HL),A 


4BCB 18AD 


01220 




JR 


LI * 


48CD FD360046 


01230 


L1114 


LD 


<IY+0>,'F' 


48D1 FD23 


01240 




INC 


IY 


48D3 0606 


01250 




LD 


B,6 


48D5 CDC851 


01260 


L11114 


CALL 


READY 


48D8 FD7700 


01270 




LD 


(IY+O) ,A 


48DB FD23 


01280 




IMC 


IY 


48DD 10F6 


01290 




DJNZ 


LI 1114 



-»***••«■■" ''<• >-3*W " ■ 
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48DF 


3E3C 


01300 


LD 


A,3CH 


49E1 


328648 


01310 


LD 


(LI 110+1), A 


48E4 


1894 


01320 


JR 


LI 


48E6 


FD360045 


01330 LI 115 


LD 


(IY+0) , J E ? 


4BEA 


FD23 


01340 


INC 


IY 


4BEC 


CDCS51 


01350 


CALL 


READY 


48EF 


CDC851 


01360 


CALL 


READY 


48F2 


3E69 


01370 


U> 


A, 105 


48F4 


321243 


01380 


LD 


(4312H),A 


48F7 


CDC851 


01390 LI 116 


CALL 


READY 


4BFA 


1SFB 


01400 


JR 


L1116 


48FC 


3E00 


01410 L22 


LD 


A,0 


48FE 


BF 


01420 


ADC 


A, A 


48FF 


3296F5 


01430 


LD 


(AFF),A 


4902 


FD222040 


01440 


LD 


(4020H), IY 


4906 


3A92F5 


01450 


LD 


A, (DF) 


4909 


3293F5 


01460 


LD 


<DFLAG),A 


490C 


11785B 


01470 


LD 


DE, BUFFER 


490F 


A7 


01480 


AND 


A 


4910 


ED52 


01490 


SBC 


HL,DE 


4912 


E5 


01500 


PUSH 


HL 


4913 


21F6F4 


01510 


LD 


HL,TEXT3 


4916 


CD00F4 


01520 ■-, 


CALL 


PRINT 


4919 


El 


01530 


POP 


HL 


491A 


CD54F4 


01540 


CALL 


PRHEX 


491 D 


CDB94A 


01550 


CALL 


CRCR 


4920 


22B5F5 


01560 


LD 


<FLEN) 5 HL 


4923 


118046 


01570 


LD 


DE,4680H 


4926 


0680 


01580 


LD 


B , 1 23 


4928 


3E20 


01590 


LD 


A,' ' 


492A 


12 


01600 LI 13 


LD 


(DE) ,A 


492B 


13 


01610 


INC 


DE 


492C 


10FC 


01620 


DJNZ 


L113 


492E 


11785B 


01630 


LD 


DE, BUFFER 


4931 


2A85F5 


01640 


LD 


HL, (FLEN) 


4934 


19 


01650 


ADD 


HL,DE 


4935 


2B 


01660 


DEC 


HL 


4936 


3A96F5 


01670 


LD 


A, (AFF) 


4939 


A7 


016B0 


AND 


A 


493A 


2801 


01690 


JR 


Z,L114 


493C 


2B 


01700 


DEC 


HL - <e ' ' • J .-■.*• ■ 


493D 


CDA54A 


01710 LI 14 


CALL 


NULL 


4940 


CA584A 


01720 


JP 


Z,L100 


4943 


1A 


1 730 


LD 


A, (DE) 


4944 


FE55 


01740 


CP 


'U ? 


4946 


2806 


01750 


JR 


Z,L115 


4948 


CDA54A 


01760 


CALL 


NULL 


494B 


CA584A 


01770 


JP 


Z,L100 


494E 


21FFFF 


01780 LI 15 


LD 


HL,0FFFFH 


4951 


1A 


01790 LI 12 


LD 


A, (DE) 


4952 


CDACF4 


01800 


CALL 


ENDE 


4955 


23 


01810 


INC 


HL 


4956 


13 


01820 


INC 


DE 


4957 


FE55 


01830 


CP 


'U ? 


4959 


20F6 


01840 


JR 


NZ,L112 


495B 


7C 


01850 


LD 


A,H 


495C 


B5 


01860 


OR 


L 


495D 


E5 


01870 


PUSH 


HL 


495E 


F5 


01880 


PUSH 


AF 


495F 


2144F5 


01890 


LD 


HL,TEXT18 
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4962 


C400F4 


01900 


CALL 


NZ, PRINT 


4965 


Fl 


01910 


POP 


AF 


4966 


El 


01920 


POP 


HL 


4967 


CDC14A 


01930 


CALL 


MZUS 


4*6A 


C454F4 


01940 


CALL 


NZ,PRHEX 


496D 


2136F5 


01950 


LD 


HL,TEXT10 


4970 


CD00F4 


01960 


CALL 


PRINT 


4973 


0606 


01970 


LD 


B,6 


4975 


IA 


01980 Lll 


LD 


A, (DE) 


4976 


CD28F4 


1 990 


CALL 


OUTCH 


4979 


13 


02000 


INC 


DE 


497A 


10F9 


02010 


DJNZ 


Lll 


497C 


21FFFF 


02020 LI 2 


LD 


HL,OFFFFH 


497F 


1A 


02030 L121 


LD 


A, (DE) 


4980 


CDACF4 


02040 


CALL 


ENDE 


4983 


13 


02050 


INC 


DE 


4984 


23 


02060 


INC 


HL , 


49S5 


FE78 


02070 ' 


CP 


78H 


4987 


2304 


02080 


JR 


Z,L122 


4989 


FE3C 


02090 


CP 


3CH 


498B 


20F2 


02100 


JR 


NZ,L121 


498D 


F5 


02110 L122 


PUSH 


AF 


498E 


7C 


02120 


LD 


A,H 


498F 


B5 


02130 


OR 


L 


4990 


280E 


02140 


JR 


Z,L123 


4992 


CDC14A 


02150 


CALL 


MZUS 


4995 


E5 


02160 


PUSH 


HL 


4996 


2144F5 


02170 


LD 


HL, TEXT 18 


4999 


C DO OF 4 


02180 


CALL 


PRINT 


499C 


El 


02190 


POP 


HL 


499D 


CD54F4 


02200 


CALL 


PRHEX 


49A0 


Fl 


02210 LI 23 


POP 


AF 


49A1 


FE78 


02220 


CP 


78H 


49A3 


2873 


02230 


JR 


Z,L15 


49A5 


1A 


02240 


LD 


A, (DE) 


49A6 


4F 


02250 " '" ' 


LD 


C,A 


49A7 


13 


02260 


INC 


DE 


49A8 


1A 


02270 


LD 


A, (DE) 


49A9 


6F 


02280 


LD 


L,A 


49AA 


13 


02290 


INC 


DE 


49AB 


iA 


02300 


LD 


A, (DE) 


49AC 


67 


02310 


LD 


H,A 


49AD 


13 


02320 


INC 


DE 


49AE 


85 


02330 


ADD 


A,L 


49AF 


47 


02340 


LD 


B,A 


49B0 


C5 


02350 


PUSH 


BC 


49B1 


ED538BF5 


02360 


LD 


(LSTAD),DE 


49B5 


IA 


02370 L14 


LD 


A, (DE) 


49B6 


CDACF4 


02380 


CALL 


ENDE 


49B9 


13 


02390 


INC 


DE 


49BA 


80 


02400 


ADD 


A,B 


49BB 


47 


02410 


LD 


B,A 


49BC 


0D 


02420 


DEC 


C 


49BD 


20F6 


02430 


JR 


NZ,L14 


49BF 


IA 


02440 


LD 


A, (DE) 


49C0 


13 


02450 


INC 


DE 


49C1 


90 


02460 


SUB 


B 


49C2 


280C 


02470 


JR 


Z,L18 


49C4 


E5 


02480 


PUSH 


HL 


49C5 


CD5CF4 


02490 


CALL 


PRBL 
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49CS El 


02500 


POP 


HL 


49C9 010000 


02510 


LD 


BC,0 


49CC ED4389F5 


02520 


LD 


(LSTREC) ,EC 


49D0 328FF5 


02530 L18 


LD 


(CSF> ,A 


49D3 CI 


02540 


POP 


BC 


49D4 E5 


02550 


PUSH 


HL 


49D5 D5 


02560 


PUSH 


DE 


49D6 ED5B89F5 


02570 


LD 


DE, (LSTREC) 


49DA 7B 


02580 


LD 


A,E 


49DB B2 


02590 


OR 


D 


49DC 2003 


02600 


JR 


NZ,L16 


49DE 3C 


02610 


INC 


A 


49DF 1808 


02620 


JR 


L17 


49E1 37 


02630 L16 


SCF 




49E2 ED52 


02640 


SBC 


HL,DE 


49E4 F5 


02650 


PUSH 


AF 


49E5 C45CF4 


02660 


CALL 


NZ,PRBL 


49E8 Fl 


02670 


POP 


AF 


49E9 Dl 


026B0 L17 


POP 


DE 


49EA El 


02690 


POP 


HL 


49EB 280B 


02700 


JR 


Z, L13 


49ED 2287F5 


02710 


LD 


(LSTRAC),HL 


49F0 E5 


02720 


PUSH 


HL -• - *...- 


49F1 2A8BF5 


02730 


LD 


HL, (LSTAD) 


49F4 228DF5 


02740 


LD 


<LSTAD1),HL 


49F7 El 


02750 


FOP 


HL 


49F8 0600 


02760 L13 


LD 


B,0 


49FA 0D 


02770 


DEC 


C 


49FB 09 


02780 


ADD 


HL,BC 


49FC 2289F5 


02790 


LD 


< LSTREC ),HL 


49FF 3A8FF5 


02800 


LD 


A, (CSF) 


4A02 A7 


02810 


AND 


A 


4A03 CA7C49 


02320 


JP 


Z,L12 


4A06 CD5CF4 


02830 


CALL 


PRBL 


4A09 210000 


02840 


LD 


HL,0 


4A0C 2289F5 


02850 


LD 


(LSTREC), HL 


4A0F 2152F5 


02860 


LD 


HL,TEXT13 


4A12 CD00F4 


02870 


CALL 


PRINT 


4A15 C37C49 


02880 


JP 


L12 




02890 


? 




4A18 CD5CF4 


02900 L15 


CALL 


PRBL 


4A1B 214BF5 


02910 


LD 


HL,TEXT12 


4A1E CD00F4 


02920 


CALL 


PRINT 


4A21 1A 


02930 


LD 


A, (DE) 


4A22 6F 


02940 


LD 


L,A 


4A23 13 


02950 


INC 


DE 


4A24 1A 


02960 


LD 


A, (DE) 


4A25 67 


02970 


LD 


H,A 


4A26 CD54F4 


02980 


CALL 


PRHEX 


4A29 13 


02990 


INC 


DE 


4A2A ED5398F5 


03000 


LD 


<ENDSYS),DE 


4A2E 21785B 


03010 


LD 


HL, BUFFER 


4A31 ED4B85F5 


03020 


LD 


BC, (FLEN) 


4A35 09 


03030 


ADD 


HL,BC 


4A36 A7 


03040 


AND 


A 


4A37 ED52 


03050 


SBC 


HL,DE 


4A39 7D 


03060 


LD 


A,L 


4A3A B4 


03070 


OR 


H 


4A3B 280E 


03080 


JR 


Z,L111 


4A3D E5 


03090 


PUSH 


HL 
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4A3E. 2144F5 


f ' l 3100 




LD 


HL ,1E*T1£> 


4A41 CD00F4 


0311'"' 




L*hL L. 


PRINT 


4A44 Ell 


0"U20 




POP 


HL 


4A45 CDC J- 1 A 


03130 




CALL 


MZUS 


4A46 CD54F4 


0"140 




CAt L 


PRHF.X 


4A4B CDB94A 


0315'"* 


Llil 


CALL 


CRCP 


4A4E HF 


03160 


LI 10 


\0P 


A 


4A4F 3293F5 


03170 




LD 


' DFLAG ) , A 


4A52 CDEB51 


03 1 30 


WSTART 


CALL 


WAIT 


4A55 C30048 


03190 

03200 
03210 




JP 


START 


4A58 2156F5 


LI 00 


LD 


HL,7E»T14 


4A5B CB00F4 


03220 




CALL 


PRINT 


4A5E 1A 


03230 




LD 


A, »DE> 


4A5F CD2BF4 


03240 




CALL 


OUTCH 


4A62 13 


03250 




INC 


DE 


4A63 CPB*4tt 


03260 


i i.. 


CALL 


CRCP 


*A66 EB 


032 70 




E* 


DEiHL 


4A67 5E 


03260 


LI 05 


LD 


E, 'HL' 


4Ab*i 23 


03290 




INC 


HL 


4 At 9 5o 


03300 




LD 


D, 'MU 


4A6A 23 


03310 




IMC 


HL 


4A6B 23 


03320 




INC 


HL 


4A6C 23 


03730 




IMC 


HL 


4AfcD 7E 


03340 


L101 


LD 


A, 'HL i 


4A6E CDA6F4 


03350 




CALL 


ENDE1 


4A71 23 


03360 




INC 


HL 


4A?2 A7 


03370 




AND 


A 


4A73 20F8 


03380 




JR 


NZ,L101 


4A^5 CBA6F4 


A3390 


LI 02 


CALL 


ENDE1 


4A73 D5 


03400 




PUSH 


DE 


4A7Q 5E 


03410 




LD 


E, 'hL> 


4A">A 23 


03420 




INC 


HL 


4A7B 56 


03430 




LD 


D, 'HL> 


4A7C 7A 


0344 




LD 


A,D 


4A7D B3 


03450 




OR 


E 


4A7E E3 


03460 




Ex 


>'SP> ,HL 


4A7F EB 


03470 




E> 


DE.HL 


4AB0 CI 


03 d 80 




POP 


BC 


4A81 CA4E4A 


03490 




JP 


2,LU0 


4A84 E5 


03500 




PUSH 


HL 


4A85 ED52 


03510 




SBC 


HL,DE 


4A87 09 


03520 




ADD 


HL,BC 


4A88 Dl 


03530 




POP 


DE 


4A89 2B 


03540 




DEC 


HL 


4A8A 2B 


03550 




DEC 


HL 


4A8B 7E 


03560 




LD 


A, cHLi 


4A8C 23 


03570 




INC 


HL 


4ABD A7 


03580 




AMD 


A 


4A8E 28E5 


03590 




JR 


Z.L102 


4A90 E5 


03600 




PUSH 


HL 


4A91 2I52F5 


03610 




LD 


HL,TEaT13 


4 A 94 CD00F4 


03620 




CALL 


PRINT 


4A97 El 


03630 




POP 


HL 


4A9S CDBC4A 


03640 




CALL 


CR1 


4A9B 7E 


03650 


LI 03 


LD 


A, (HLJ 


4A9C CDA6F4 


03660 




CALL 


ENDE1 


4A9F 23 


03670 




INC 


HL 


4AA0 A7 


03680 




AND 


A 


4AA1 20F8 


03690 




JR 


NZ,L103 



,.,, 
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4AA3 18C2 


03700 
03710 


* 


JR 


LI 05 




4AA5 7E 


03720 


MULL 


LD 


A, (HL) 




4AA6 2B 


03730 




DEC 


HL 




4AA7 B6 


03740 




OR 


<HL) 




4AA8 26 


03750 




DEC 


HL 




4AA9 B6 


03760 




OR 


(HL) 




4AAA 23 


03770 




INC 


HL 




4AAB CO 


03780 




RET 


NZ 




4AAC 2B 


03790 




DEC 


HL 




4AAD 2B 


03800 




DEC 


HL 




4AAE 7E 


03810 




LD 


A, (HL) 




4AAF FE7B 


03820 




CP 


78H 




4AB1 23 


03830 




INC 


HL 




4AB2 23 


03840 




INC 


HL 




4AB3 2802 


03850 




JR 


Z,N1 




4AB5 AF 


03860 




XOR 


A 




4AB6 C9 


03870 




RET 






4AB7 A7 


03880 


Nl 


AND 


A 




4AB8 C9 


03890 




RET 








03900 




• 




- 


4AB9 CDBC4A 


03910 


CRCR 


CALL 


CR1 




4ABC 3E0D 


03920 


Cfil 


LD 


A,CR • • r ■ **. *■: 


\i - 


4ABE C328F4 


03930 




JP 


DUTCH 






03940 






- 




4AC1 F5 


03950 


MZUS 


PUSH 


AF 




4AC2 7C 


03960 




LD 


A,H 




4AC3 A7 


03970 




AND 


A 




4AC4 3297F5 


03980 




LD 


(MZ),A 




4AC7 2008 


03990 




JR 


NZ,MZ1 




4AC9 7D 


04000 




LD 


A,L 




4ACA FEOA 


04010 




CP 


10 




4ACC 3803 


04020 




JR 


C,MZ1 




4ACE 3297F5 


04030 




LD 


(MZ),A 




4AD1 Fl 


04040 


MZ1 


POP 


AF 


. 


4AD2 C9 


04050 
04060 




RET 








04070 




; Autcmati k (Ein/Aus) 






04080 










4AB3 3A90F5 


04090 


AUTOM 


LD 


A, (BF) 




4AD6 EEFF 


04100 




XOR ,..,.. 


255 




4AB8 3290F5 


04110 




LD 


(BF),A 




4ABB 3AD1F4 


04120 




LD 


A, (BA) 




4ADE EE61 


04130 




XOR 


J a' ; = ? ' XOR 


? A' 


4AE0 32D1F4 


04140 




LD 


(BA),A 




4AE3 C30048 


04150 
04160 




JP 


START 






04170 




; Drue J 


:er (Ein/Aus) 






04180 










4AE6 3A92F5 


04190 


DREA 


LD 


A, (DF) 




4AE9 EEFF 


04200 




XOR 


255 




4AEB 3292F5 


04210 




LD 


<DF),A 




4AEE 3AD3F4 


04220 




LD 


A, (DA) 




4AF1 EE64 


04230 




XOR 


'd' ; = ' ' XOR 


'D' 


4AF3 32D3F4 


04240 




LD 


(DA), A 




4AF6 C30048 


04250 
04260 




JP 


START 






04270 




; Schreiben 






04280 










4AF9 21FEF4 


04290 


SCHREI 


LD 


HL,TEXT4 
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4AFC 


11A752 


04300 


LD 


DE,FCB 


4AFF 


0617 


04310 


LD 


B '^" T - 


4B01 


CD8351 


04320 


CALL 


INPUT 


4B04 


EB 


04330 


EX 


DE,HL 


4B05 


21C952 


04340 


LD 


HL,DBUF 


4 BOS 


0600 


04350 


LD 


B,0 


4 BOA 


CD20CE 


04360 


CALL 


INIT 


4B0D 


C28752 


04370 


JP 


NZ , DERROR 


4B10 


2109F5 


04380 S001 


LD 


HL,TEXT5B 


4B13 


11C952 


04390 


LD 


DE,DBUF 


4B16 


0601 


04400 


LD 


e,i 


4B18 


CD8351 


04410 


CALL 


INPUT 


4B1B 


7E 


04420 


LD 


A, (HL) 


4B1C 


E6DF 


04430 


AND 


ODFH 


4B1E 


FE4E 


04440 


CP 


'N' 


4B20 


2822 


04450 


JR 


Z,S002 


4B22 


FE4A 


04460 *, .. - ■*.;- 


CP 


■ ' J' 


4B24 


20EA 


04470 


JR 


NZ,S001 


4B26 


2115F5 


04480 


LD 


HL,TEXT5A 


4B29 


UC952 


04490 


LD 


DE.DBUF 


4B2C 


0604 


04500 


LD 


B,4 


4B2E 


CD3351 


04510 


CALL 


INPUT 


4B31 


7E 


04520. 


LD 


A, (HL) 


4B32 


FE0D 


04530 


CP 


CR 


4B34 


110060 


04540 


LD 


DE,6000H 


4B37 


2806 


04550 


JR 


Z , S003 


4B39 


1 10000 


04560 


LD 


DE,0 


4B3C 


CDFE34 


04570 


CALL 


34FEH 


4B3F 


ED539BF5 


04580 5003 


LD 


(VERADFO,DE 


4B43 


AF 


04590 


XOR 


A 


4B44 


329AF5 


04600 S002 


LD 


(VF),A 


4B47 


2123F5 


04610 


LD 


HL,TEXT7 


4B4A 


CD00F4 


04620 


CALL 


PRINT 


4B4D 


3A97F5 


04630 


LD 


A, <M2> 


4B50 


A7 


04640 ^ ....,.„.. 


AND 


A 


4B51 


21785B 


04650 


LD 


HL, BUFFER 


4B54 


282A 


04660 


JR 


Z,S01 


4B56 


2A98F5 


04670 


LD 


HL, (ENDSYS) 


4B59 


E5 


04680 


PUSH 


HL 


4B5A 


11F15B 


04690 


LD 


DE,BUFFER+79H 


4B5D 


0E32 


04700 


LD 


C,50 


4B5F 


7E 


04710 S02 


LD 


A, (HL) 


4B60 


FE78 


04720 


CP 


78H 


4B62 


281B 


04730 


JR 


Z,S05 


4B64 


FE3C 


04740 


CP 


oCH 


4B66 


17 


04750 


INC 


HL 


4B67 


20F6 


04760 


JR 


NZ,S02 


4B69 


46 


04770 


LD 


B, (HL) 


4B6A 


23 


04780 


INC 


HL 


4B6B 


23 


04790 


INC 


HL 


4B6C 


23 


04800 


INC 


HL 


4B6D 


1A 


04810 S03 


LD 


A, (DE> 


4B6E 


AE 


04820 


XOR 


(HL) 


4B6F 


77 


04830 


LD 


(HL),A 


4B70 


13 


04840 


INC 


DE 


4B71 


23 


04850 


INC 


HL 


4B72 


OD 


04860 


DEC 


C 


4B73 


2005 


04870 


JR 


NZ,S04 


4B75 


0E32 


04880 


LD 


C,50 


4B77 


11F15B 


04890 


LD 


DE,BUFFER+79H 



.-fist.*-.. 
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4B7A 


lOFi 


04900 S04 


DJNZ 


SOS 


4B7C 


23 


04910 


INC 


HL 


4B7D 


18E0 


04920 


OR 


S02 


4B7F 


Ei 


04930 SOS 


POP 


HL 


4BB0 


ED4B9BF5 


04940 SOI 


LD 


EC, (VERADR) 


4B84 


ED43B44C 


04950 


LB 


WERAD2+1) ,BC 


4B88 


110000 


04960 


LD 


DE,0 


4BSB 


ED539DF5 


04970 


LD 


(AE) ,DE 


4B8F 


11CF4C 


04980 


LD 


DE,BTAB 


4B92 


7E 


04990 SI 


LD 


A, (HL) 


4B93 


ru^'L 


05000 


CP 


3CH 


4B95 


23 


05010 


INC 


HL 


4B96 


20FA 


05020 


JR 


NZ,S1 


4B98 


3E01 


05030 


LD 


A,i 


4B9A 


CD7E52 


05040 


CALL 


WRB 


4B9D 


7E 


05050 


LD 


A, CHL) 


4B9E 


F5 


05060 


PUSH 


AF 


4B9F 


C602 


05070 


ADD 


A, 2 


4BA1 


CD7E52 


05080 


CALL 


WRB 


4BA4 


1<T 


05090 


INC 


HL 


4BA5 


3A9AF5 


05100 


LD 


A, (VF) 


4BA8 


A7 


05110 


AND 


,A 


4BA9 


281B 


05120 


JR 


"' Z,S004 


4BAB 


4E 


05130 


LD 


C, (HL) 


4BAC 




05140 


INC 


HL 


4BAD 


46 


05150 


LD 


B, (HL) 


4BAE 


2B 


05160 


DEC 


HL 


4BAF 


E5 


05170 


PUSH 


HL 


4BB0 


21E241 


05180 


LD 


HL,41E2H 


4BB3 


ED42 


05190 


SBC 


HL,BC 


4BB5 


El 


05200 


POP 


HL 


4BB6 


200E 


05210 


JR 


NZ,S004 


4BB8 


E5 


05220 


PUSH 


HL 


4BB9 


23 


05230 


INC 


HL 


4BBA 


23 


05240 


INC 


HL 


4BBB 


23 


05250 


INC 


HL 


4 BBC 


C5 


05260 


PUSH 


BC 


4BBD 


4E 


05270 


LD 


C, (HL) 


4BBE 


23 


05280 


INC 


HL 


4BBF 


46 


05290 


LD 


B, (HD 


4BC0 


ED439DF5 


05300 ' ° 


LD 


<AE),BC """ , " 


4BC4 


CI 


05310 


POP 


BC 


4BC5 


El 


05320 


POP 


HL 


4BC6 


79 


05330 S004 


LD 


A,C 


4BC7 


CD7E52 


05340 


CALL 


WRB 


4BCA 


78 


05350 


LD 


A,B 


4BCB 


CD7E52 


05360 


CALL 


WRB 


4BCE 


E5 


05370 


PUSH 


HL 


4BCF 


D5 


05380 


PUSH 


DE 


4BD0 


216F4D 


05390 


LD 


HL, BLOCK 1 


4BD3 


A7 


05400 


AND 


A 


4BD4 


ED52 


05410 


SBC 


HL,DE 


4BD6 


2812 


05420 


JR 


2, Sill 


4BD8 


110401 


05430 


LD 


DE,260 


4BDB 


A7 


05440 


AND 


A 


4BDC 


ED5A 


05450 


ADC 


HL,DE 


4BDE 


280A 


05460 


JR 


Z ; S111 


4BE0 


A7 


05470 


AND 


A 


4BE1 


ED5A 


05480 


ADC 


HL,DE 


4BE3 


2805 


05490 


JR 


2, Sill 
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4BE5 A 7 


05500 


AND 


A 


4BE6 ED5A 


05510 


ADC 


HL,DE 


4BES 2006 


05520 


JR 


NZ,S11 


4BEA Dl 


05530 Sill 


POP 


DE 


4BEB 13 


05540 


INC 


DE 


4BEC 13 


05550 


INC 


DE 


ABED 13 


05560 


INC 


DE 


4BEE 13 


05570 


INC 


DE 


4 BEE D5 


05580 


PUSH 


DE 


4BF0 Dl 


05590 311 


POP 


DE 


4BF1 El 


05600 


POP 


HL 


4BF2 7E 


05610 


LD 


A, (HL) 


4BF3 12 


05620 


LD 


(DE) ,A 


4BF4 23 


05630 


INC 


HL 


4BF5 13 


05640 


INC 


DE 


4BF6 7E 


05650 


LD 


A, (HL) 


4BF7 12 v.— 


05660 - 


LD — ■ 


- -(DE) ,A ...'..-, 


4BF8 23 


05670 


INC 


HL 


4BF9 13 


05660 


INC 


DE 


4BFA Fl 


05690 


POP 


AF 


4BFB 12 


05700 


LD 


(DE'i ,A 


4BFC F5 


05710 


PUSH 


AF 


4BFD FE01 


05720 


CP 


1 


4BFF 3E00 


05730 


LD 


A,0 


4C01 3F 


05740 


ADC 


A, A 


4C02 13 


05750 


INC 


DE 


4C03 12 


05760 


LD 


(DE>,A 


4C04 13 


05770 


INC 


DE 


4C05 Fi 


05780 


FOP 


AF 


4C06 D5 


05790 


FUSH 


DE 


4C07 57 


05S00 


LD 


D,A 


4C0B 7E 


05810 S2 


LD 


A, (HL) 


4C0? CD7E52 


05820 


CALL 


WRB 


4C0C 23 


05330 


INC 


HL 


4C0D 03 


05840 ,,. ., .. 


INC 


BC -..-.-...- . . . 


4C0E 15 


05850 


DEC 


D 


4C0F 20F7 


05860 


JR 


NZ,52 


4C11 23 


05870 


INC 


HL 


4C12 Dl 


05880 


POP 


DE 


4C13 7E 


05890 


LD 


A, (HL) 


4C14 FE7B 


05900 


CP 


7BH 


4C16 C2924B 


05910 


JP 


NZ,S1 


4C19 AF 


05920 


XOR 


A 


4C1A 13 


05930 


INC 


DE 


4C1B 13 


05940 


INC 


DE 


4C1C 12 


05950 


LD 


(DE),A 


4C1D 13 


05960 


INC 


DE 


4C1E 12 


05970 


LD 


(DE) ,A 


4C1F 23 


05980 


INC 


HL 


4C20 7E 


05990 


LD 


A, (HL) 


4C21 32CD4C 


06000 


LD 


(ENTRY+1),A 


4C24 23 


06010 


INC 


HL 


4C25 7E 


06020 


LD 


A, (HL) 


4C26 32CE4C 


06030 


LD 


(ENTRY+2) ,A 


4C29 ED437B4C 


06040 


LD 


(FBLOCK),BC 


4C2D ED439151 


06050 


LD 


(FENTRY) ,BC 


4C31 21F200 


06060 


LD 


HL,FBLl--FBL0CK-4 


4C34 09 


06070 


ADD 


HL,BC 


4C35 22714D 


06080 


LD 


(FBL1) ,HL 


4C38 24 


06090 


INC 


H 
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4C39 22754E 


06100 


LD 


<FBL2) ,HL 


4C3C 24 


06110 


INC 


H 


4C3D 22794F 


06120 


LD 


(FRL3>,HL 


4C40 24 


06130 


INC 


H 


4C4I 227D50 


06140 


LD 


(FBL4),HL 




06150 


• 




4C44 21794C 


06160 


LD 


HL, VERSCH 


4C47 010A05 


06170 


LD 


BC, FENTRY-VERSCH+2 


4C4A 3A9AF5 


06180 


LD 


A, (VFi 


4C4D A7 


06190 


AND 


A 


4C4E 2813 


06200 


JR 


Z,S3 


4C50 2A9DF5 


06210 


LD 


HL, (AE) 


4C53 7C 


06220 


LD 


A,H 


4C54 B5 


06230 


OR 


L 


4C55 2003 


06240 


JR 


NZ,S31 


4C57 2ACD4C 


06250 


LD 


HL, (ENTRY+1) 


4C5A 228151 


06260 S31 


LD 


<FENTRY),HL 


4C5D 217F51 


06270 


LD 


HUFENTRY-2 


4C60 010400 


06280 


LD 


BC,4 


4C63 7E 


06290 S3 


LD 


A, (HL) 


AC64 CD7E52 


06300 


CALL 


WRB 


4C67 23 


06310 


INC 


HL 


4C68 OB " " 


06320 '' 


DEC 


Tjp * ♦ ■ v *-*-•* ^ * _ v* ,+ *- J£"£ - .'\ 


4C69 78 


06330 


LD 


A,B 


4C6A 81 


06340 


OR 


C 


4C6B 20F6 


06350 


JR 


NZ,S3 


4C6D 11A752 


06360 


LD 


DE,FCB 


4C70 CD28CE 


06370 


CALL 


CLOSE 


4C73 C28752 


06380 


JP 


NZ 5 DERRGR 


4C76 C3524A 


06390 
06400 ; 


Jf> 


WSTART 


4C79 01 


06410 VERSCH 


DEFB 


1 


4C7A F4 


06420 


DEFB 


FBLl-VERSCH-4 


4C7B 0000 


06430 FBLOCK 


DEFW 





4C7D F3 


06440 


DI 




4C7E 21FBC9 


06450 


LD 


HL,0C9FBH 


4C81 221240 


06460 


LD 


(4012H),HL 


4C84 213E00 


06470 


LD 


HL,3EH 


4CB7 223340 


06480 


LD 


<4033H),HL 


4C8A 3EC9 


06490 


LD 


A,0C9H 


4CBC 323540 


06500 •-•-'•■- ■ 


LO — 


■ <4035H),A — ^ -■ ■■■ 


4C8F 32E241 


06510 


LD 


(41E2H) ,A 


4C92 06 1C 


06520 


LD 


B, 1CH 


4C94 215241 


06530 


LD 


HL,4152H 


4C97 36C3 


06540 INIT1 


LD 


<HL),0C3H 


4C99 23 


06550 


INC 


HL 


4C9A 363B 


06560 


LD 


(HL) ,3BH 


4C9C 23 


06570 


INC 


HL 


4C9D 3601 


06580 


LD 


(HL) , 1 


4C9F 23 


06590 


INC 


HL 


4CA0 10F5 


06600 


DJNZ 


INIT1 


4CA2 0615 


06610 


LD 


B,15H 


4CA4 36C9 


06620 INIT2 


LD 


(HL) ,0C9H 


4CA6 23 


06630 


INC 


HL 


4CA7 23 


06640 


INC 


HL 


4CA8 23 


06650 


INC 


HL 


4CA9 10F9 


06660 


DJNZ 


INIT2 


4CAB CD0800 


06670 


CALL 


OBH 


4CAE 112100 


06680 HIER 


LD 


DE,BTAB-HIER 


4CB1 19 


06690 


ADD 


HL,DE 
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4CB2 E5 


06700 




PUSH 


HL 


4CB3 210000 


06710 


VERAB2 


LB 


HL.O 


4CB6 E3 


06720 


VL 


EX 


<SP>,HL 


4CB7 5E ' 


06730 




LD 


E, (HL) 


4CB8 23 


06740 




IMC 


HL 


4CB9 56 


06750 




LD 


D, (HL) 


4CBA 23 


06760 




INC 


HL 


4CBB 4E 


06770 




LB 


C, (HL) 


4CBC 23 


06780 




INC 


HL 


4CBD 46 


06790 




LD 


B, (HL) 


4CBE 23 


06800 




INC 


HL 


4CBF 7? 


06810 




LD 


A,C 


4 CCO BO 


06820 




OR 


B 


4CC1 2805 


06830 




JR 


Z,VS2 


4CC3 E3 


06840 




EX 


<SP> ,HL 


4CC4 EDB0 


06850 




LDIR 




4CC6 1SEE 


06860 




JR 


VL- - 


4CC8 El 


06870 


VS2 


POP 


HL 


4CC? CDE241 


06880 




CALL 


41E2H 


4CCC C30000 


06890 


ENTRY 


JP 


n 


4CCF 


06900 


BTAB 


EQU 


$ 


4B6F 


06910 




ORG 


$+160 


4D6F 01 


06920 


BLOCK 1 


DEFB 


1 


4D70 02 


06930 




DEFB 


+~ 


4B71 0000 


06940 


FBL1 


DEFW 





4D73 


06950 


BTAB1 


EQU 


$ 


4E73 


06960 




ORG 


t+256 


4E73 01 


06970 


BL0CK2 


DEFB 


1 


4E74 02 


06980 




DEFB 


■y 


4E75 0000 


06990 


FBL2 


DEFW 





4E77 


07000 


BTAB2 


EQU 


$ 


4F77 


07010 




ORG 


$+256 


4F77 01 


07020 


BL0CK3 


DEFB 


1 


4F78 02 


07030 




DEFB 


*i' 


4F7? 0000 


07040 


FBL3 


DEFW 





4F7B 


07050 


BTAB3 


EQU 


$ 


507B 


07060 




ORG 


$+256 


507B 01 


07070 


BL0CK4 


DEFB 


1 


50 7 C 02 


07080 




DEFB 


^ 


507D 0000 


07090 


FBL4 


DEFW 





507F 


07100 


BTAB4 


EQU 


$ 


517F 


07110 




ORG 


$+256 


517F 02 


07120 




DEFB 


2 


5180 02 


07130 




DEFB 


'y, 


5181 0000 


07140 
07150 


FENTRY 


DEFW 

9 





5183 CD00F4 


07160 


INPUT 


CALL 


PRINT 


5186 2169F5 


07170 




LD 


HL..TEXT16 


5189 CD00F4 


07180 




CALL 


PRINT 


518C EB 


07190 




EX 


DE,HL 


518D CDD905 


07200 




CALL 


05D9H 


5190 C3BC4A 


07210 
07220 




JP 

* 


CR1 




07230 




; Vergl 


eichen 




07240 




* 




5193 21E8F4 


07250 


VERGLE 


LD 


HL,TEXT2 


5196 CD00F4 


07260 




CALL 


PRINT 


5199 CDEB51 


07270 




CALL 


WAIT 


519C 2128F5 


07280 




LD 


HL, TEXTS 


519F CD00F4 


07290 




CALL 


PRINT 
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51A2 
51A4 
51A6 
51A9 
51AD 

51 BO 
51B3 
51 B7 
51 B8 
51BB 
51BC 
51BF 
5 ICO 



260F 

2E18 

22C851 

E05B85F5 

C36248 



215CF5 

FD222040 

E5 

CDB94A 

El 

CD00F4 

Dl 

C3524A 



51C3 2161F5 
51C6 18EB 



51C8 
51C9 
51CB 
51CE 
51 DO 
51D1 
51D2 
51D3 
51D4 
51D5 
51D6 

51D9 
51DA 
51DB 
51DC 
SIDE 
51E1 
51E2 
51E4 
51E6 
51E7 
51E8 



51EB 
S1EE 
51F1 
51F4 
51F6 
51F8 



1C 

CBFB 

CDF951 

2804 

23 

77 

12 

DO 

CI 

23 

C3FC48 

IB 

7A 

B3 

28D2 

CDF951 

23 

28DB 

38D9 

BE 

C8 

C3C351 



212DF5 

CDO0F4 

CD2B00 

FEOD 

20F9 

C9 



51F9 D9 
51 FA 0608 
51FC 1600 
51FE CD1652 



07300 

07310 

07320 

07330 

07340 

07350 

07360 

07370 

07380 

07390 

07400 

07410 

07420 

07430 

07440 

07450 

07460 

07470 

07480 

07490 

07500 

07510 

07520 

07530 

07540 

07550 

07560 

07570 

07580 

07590 

07600 

07610 

07620 

07630 

07640 

07650 

07660 

07670 

07680 

07690 

07700 

07710 

07720 

07730 

07740 

07750 

07760 

07770 

07780 

07790 

07800 

07810 

07820 

07830 

07840 

07850 

07860 

07870 

07880 

07890 



VI 

V4 



u? 



V3 



READY 



REND 



READY 



WAIT 
Wl 



READB 



RBI 



LD 


H,READV--PEADY 


LD 


L, 18H 


LD 


(READY), ML 


LD 


DE, (FLEN) 


JP 


LAD 


n 

LD 


HL,TEXT15 


LD 


(4020H) ,IY 


PUSH 


HL 


CALL 


CRCR 


POP 


HL 


CALL 


PRINT 


POP 


DE 


JP 


WSTART 



Fehler 



LD 
JR 



HL, TEXTS 
V4 



Unterprogramme fur Lesen 
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INC 

SET 

CALL 

JR 

INC 

LD 

LD 

RET 

POP 

INC 

JP 

DEC 

LD 

OR 

JR 

CALL 

INC 

JR 

JR 

CP 

RET 

JP 



E 

7,E 

READB 

Z,REND 

HL 

(HL),A 

(DE),A 

NC 

BC 

HL 

L22 

DE 

A,D 

E 

Z,V1 

READB 

HL 

Z,V2 

C,V2 

(HL) 

Z 

V3 



- '***\ r* n 



j Unterprogramme 

? 

HL,TEXTO 
PRINT 



LD 
CALL 
CALL 
CP 

JR 
RET 

* 
t 

EXX 
LD 
LD 
CALL 



INCH 

CR 

NZ,W1 



B,8 
D,0 
READB I 
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5201 3606 


07900 




JR 


C,RB2 


5203 10F9 


07910 




DJNZ 


RBI 


5205 04 


07920 




INC 


B 


5206 7A 


07930 


RB3 


LD 


A,D 


5207 D9 


07940 




EXX 




5208 C9 


07950 
07960 




RET 




5209 78 


07970 


RB2 


LD 


A,B 


520A FE08 


07980 




CP 


8 


520C 28F8 


07990 




JR 


Z,RB3 


520E CB22 


08000 


RB4 


SLA 


D 


5210 10FC 


08010 




DJNZ 


RB4 


5212 37 


08020 




SCF 




5213 04 


08030 




INC 


B 


5214 13F0 


08040 
08050 




JR 

■ 


RB3 


5216 C5 ■■-"'■ 


■ 03060 


READBI 


RUSH 


BC 


52i7 DBFF 


08070 




IN 


A, (OFFH) 


5219 E601 


08080 




AND 


01 


521 B 5F 


08090 




LD 


E,A 


52 1C 0E00 


08 1 00 




LD 


c,o 


52 IE OB 


08110 


Rl 


DEC 


c 


52 IF 280B 


08120 




JR 


Z,RBI1 


5221 BBFF 


08130 




IN 


A, (OFFH) 


5223 E601 


08140 




AND 


01 


5225 AB 


08150 




XOR 


E 


5226 IF 


03160 




RRA 




5227 30F5 


08170 




JR 


NC,R1 


5229 C30802 


08180 




JR 


0208H 


522C 3A90F5 


08190 


RBIi 


LD 


A, (BF) 


522F A7 


08200 




AND 


A 


5230 2807 


03210 




JR 


Z,RBI2 


5232 3A40F8 


08220 




LD 


A, (0FS40H) 


5235 CB57 


08230 




BIT 


2, A 


5237 28E5 


08240 




JR 


Z,R1 ,.:. 


5239 CI 


08250 


RBI2 


POP 


BC 


523A 37 


08260 




SCF 




523B C9 


08270 
08280 




RET 

* 




523C 3A90F5 


08290 


READS 


LD 


A, <BF) 


523F 329 1F5 


08300 




LD 


(BFS) ,A 


5242 3E01 


08310 




LD 


A,l 


5244 3290F5 


08320 




LD 


(BF),A 


5247 E5 


08330 




PUSH 


HL 


5248 D5 


08340 




PUSH 


DE 


5249 C5 


08350 




PUSH 


BC 


524A 3E05 


08360 




LD 


A, 5 


524C 3226F0 


08370 




LD 


(0F026H),A 


524F 3227F0 


08380 




LD 


(0F027H),A 


5252 01AA80 


08390 


RSI 


LD 


BC,080AAH 


5255 CD 1652 


08400 


RS2 


CALL 


READBI 


5258 381 A 


08410 




JR 


L f R5-i 


525A B9 


08420 




CP 


C 


525B 20F5 


08430 




JR 


NZ,RS1 


525D 3EFF 


08440 




LD 


A, 255 


525F A9 


08450 




XOR 


C 


5260 4F 


03460 




LD 


C.A 


5261 10F2 


08470 




DJNZ 


RS2 


5263 CD 1652 


08480 


RS4 


CALL 


READBI 


5266 380C 


08490 




JR 


C,RS3 
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5268 FE66 


08500 




CP 


66H 




526A 20F7 


08510 




Jft 


NZ,PS4 




526C 3E2A 


08520 




LD 


A,'*' 




526E 322644 


08530 




LD 


(4426H),A 




5271 322744 


08540 




LD 


(4427H),A 




5274 CI 


08550 


RS3 


POP 


BC 




5275 Dl 


08560 




POP 


DE 




5276 Ei 


08570 




POP 


HL 




5277 3A<?1F5 


08580 




LD 


A, (BFS) 




527A 3290F5 


08590 




LD 


<BF),A 




527D C9 


08600 
08610 




RET 

; 






CE20 


08620 


IMT 


EQU 


0CE20H 




CE28 


08630 
08640 


CLOSE 

• 


EQU 


0CE2BH 




527E D5 


08650 


WRB 


PUSH 


DE 




527F 11A752 


08660 




LD 


DE,FCB 




5282 CD 1 BOO 


03670 




CALL 


1BH 




5285 Dl 


08680 




POP 


DE 




5286 C8 


08690 
08700 




RET 

* 


Z 




52e7 0600 


08710 


DERROR 


LD 


B,0 




5269 04 


08720 


DEI .;••- 


. INC 


y **♦ - r - i , .} , *- 


■ <■ 


528A D60A 


08730 




SUB 


10 




528C 30FB 


08740 




JR 


NC,DE1 




528E 05 


08750 




DEC 


B 




528F C60A 


08760 




ADD 


A, 10 




5291 F5 


08770 




PUSH 


AF 




5292 78 


08780 




LD 


A,B 




5293 C630 


08790 




ADD 


A, ? 0' 




5295 CD28F4 


08800 




CALL 


DUTCH 




5298 Fl 


08810 




POP 


AF 




5299 C630 


08820 




ADD 


A,'0' 




529B CD28F4 


08830 




CALL 


OUTCH 




529E 216DF5 


09840 




LD 


HL,TEXT17 




52A1 CD00F4 


08850 




CALL 


PRINT 




52A4 C3524A 


08860 
08870 
08880 


• 


JP 

; 


WSTART 




52A7 


08890 


FCB 


EQU 


$ 




.»* - k 


08900 


• 

4 


, j, . 


■ „ . * " ■< **,.£,1X <H 1 t,l " 


■ '■*. 


52C9 


08910 
08920 


DBUF 

• 


EQU 


*+34 




5B78 


08930 
03940 


BUFFER 


EQU 


5B78H 




F400 


08950 
08960 




ORG 

• 


0F400H 




F400 7E 


08970 


PRINT 


LD 


A, <HL> 




F401 A7 


08980 




AND 


A 




F402 23 


08990 




INC 


HL 




F403 2809 


09000 




JR 


Z 5 PR2 




F405 FEFF 


09010 




CP 


255 




F407 2812 


09020 




JR 


Z,FR3 




F409 CD28F4 


09030 




CALL 


OUTCH 




F40C 18F2 


09040 
09050 




JR 


PRINT 




F40E D5 


09060 


PR2 


PUSH 


DE 




F40F CD2B00 


09070 




CALL 


INCH 




F412 FE60 


09080 




CP 


60H 




F414 CC2B00 


09090 


PR1 


CALL 


Z,IMCH 
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F417 28FB 


09100 




JR 


Z,PR1 


F419 Dl 


09110 




POP 


DE 


F41A C9 


09 1 20 
09 1 30 




RET 

■ 




F41B C5 


09140 


PR3 


PUSH 


BC 


F41C 46 


09150 




LD 


B, (HL) 


F41D 23 


09160 




INC 


HL 


F41E 7F. 


09170 


PR4 


LD 


A, (HL) 


F41F CD28F4 


09180 




CALL 


DUTCH 


F422 10FA 


09190 




DJNZ 


PR4 


F424 23 


09200 




INC 


HL 


F425 Ct 


09210 




POP 


BC 


F426 19DS 


09220 
09230 




JR 

; 


PRINT 


002B 


09240 
09250 


INCH 


EQU 

■I 


002BH 


F428 D5 


09260 


DUTCH 


PUSH 


^ .. ., .. 


F429 F5 


09270 




PUSH 


AF 


F42A CD3300 


09280 




CALL 


33H 


F42D Fl 


09290 




POP 


AF 


F42E 57 


09300 




LD 


D,A 


F42F 3A93F5 


09310 




LD 


A, (DFLAG) 


F432 A7 


09320 




AND 


A 


F433 7A 


09330 




LD 


A,D 


F434 C43B00 


09340 




CALL 


NZ , 3BH 


F437 Dl 


09350 




POP 


DE 


F438 C9 


09360 
09370 
09380 




RET 

• 

» 

* 




F439 7C 


09390 


PRH 


LD 


A,H 


F43A CD3EF4 


09400 




CALL 


PRBYTE 


F43D 7D 


09410 




LD 


A,L 


F43E F5 


09420 


PRBYTE 


PUSH 


AF 


F43F OF 


09430 




RRCA 




F440 OF 


09440 




RRCA 




F441 OF 


' 09450 




RRCA 




F442 OF 


09460 




RRCA 




F443 CD47F4 


09470 




CALL 


PRNIB 


F446 Fl 


09480 




POP 


AF 


F447 E60F 


09490 


PRNIB 


AND 


OFH 


F449 FEOA 


09500 




CP 


10 


F44B 3802 


09510 




JR 


C,PN1 


F44D C607 


09520 




ADD 


A,>A*- J 9'-1 


F44F C630 


09530 


PM1 


ADD 


A,'0' 


F451 C328F4 


09540 
09550 




JP 

* 


DUTCH 


F454 CD39F4 


09560 


PRHEX 


CALL 


PRH 


F457 3E48 


09570 




LD 


A,'H' 


F459 C328F4 


09580 
09590 




JP 

• 
4 


OUTCH 


F45C 2A89F5 


09600 


PRBL 


LD 


HL, (LSTREC) 


F45F 7D 


09610 




LD 


A,L 


F460 B4 


09620 




OR 


H 


F461 C8 


09630 




RET 


Z 


F462 D5 


09640 




PUSH 


DE 


F463 213DF5 


09650 




LD 


HL,TEXT11 


F466 CD00F4 


09660 




CALL 


PRINT 


F469 2A87F5 


09670 




LD 


HL, (LSTRAC) 


F46C E5 


09680 




PUSH 


HL 


F46D CD54F4 


09690 




CALL 


PRHEX 



»f4»A*.',fr. *,- 



,1-it >*£ - I.* *-* 4 *♦* 



'*jvl^ 
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F470 3E2D 


09700 


LD 


A,'-' 


F472 CD28F4 


09710 


CALL 


OUTCH 


F475 2A89F5 


09720 


LD 


HL, aSTREC) 


F478 CD54F4 


09730 


CALL 


PRHEX 


F47B Dl 


09740 


POP 


DE 


F47C A7 


09750 


AND 


A 


F47D ED52 


09760 


SBC 


HL,DE 


F47F Dl 


09770 


POP 


DE 


F480 7C 


09780 


LD 


A,H 


F4B1 A7 


09790 


AND 


A 


F482 CO 


09800 


RET 


N2 


F483 7D 


09810 


LD 


A,L 


F434 FE03 


09820 


CP 




F486 DO 


09830 


RET 


NC 


F487 C5 


09840 


PUSH 


BC 


F488 45 


09850 


LD 


B,L 


F489 04 


09860 


INC 


B 


F4SA 2181F5 


09870 


LD 


HL,TEXT20 


F48D CD00F4 


09880 


CALL 


PRINT 


F490 2A8DF5 


09890 


LD 


HL, (LSTAD1) 


F493 7E 


09900 PRBL1 


LD 


A, (HL) 


F494 CD3EF4 


09910 


CALL 


PRBYTE 


F497 3E4S 


09920 , .., . , 


LD 


. A, 'H' -.,*-. - 


F499 CD28F4 


09930 


CALL 


OUTCH 


F49C 3E20 


09940 


LD 


A,' ' 


F49E CD28F4 


09950 


CALL 


OUTCH 


F4A1 23 


09960 


INC 


HL 


F4A2 10EF 


09970 


DJNZ 


PRBL1 


F4A4 Ci 


09980 


POP 


BC 


F4A5 C9 


09990 
1 0000 
10010 
10020 


RET 




F4A6 EB 


10030 ENDE1 


EX 


DE,HL 


F4A7 CDACF4 


10040 


CALL 


ENDE 


F4AA EB 


1 0050 


EX 


DE,HL 


F4AB C9 


1 0060 


RET 






10070 


* 




F4AC E5 


10080 ENDE 


PUSH 


HL 


F4AD D5 


10090 


PUSH 


DE 


F4AE 21785B 


10100 


JJ>„, ... 


HL, BUFFER 


F4B1 ED5B85F5 


10110 


LD 


DE, <FLEN) 


F4B5 19 


10120 


ADD 


HL,DE 


F4B6 37 


10130 


SCF 




F4B7 Dl 


10140 


POP 


DE 


F4B8 ED52 


10150 


SBC 


HL,DE 


F4BA El 


10160 


POP 


HL 


F4BB DO 


10170 


RET 


NC 


F4BC Dl 


10180 


POP 


DE 


F4BD 2176F5 


10190 


LD 


HL,TEXT19 


F4C0 CD OOF 4 


10200 


CALL 


PRINT 


F4C3 C34E4A 


10210 


JP 


LI 10 




10220 








10230 


* 






10240 


; Texte 






10250 


■ 




F4C6 1C 


10260 TEXT1 


DEFB 


1CH 


F4C7 IF 


10270 


DEFB 


1FH 


F4C8 53 


10280 


DEFM 


'SAVETAPE ' 


F4D1 41 


10290 BA 


DEFM 


'A ' 



*' " ti'C £' • *.'.'¥ ~ ' 



t i &:'#■>,: *. .-. j , 
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F4D3 20 


10300 DA 


DEFM 


? T 




F4D5 3C 


10310 


DEFM 


'<L, F, S, A, 


D, V>* 


F4E7 00 


10320 


DEFB 







F4ES 1C 


10330 TEXT2 


DEFB 


1CH 




F4E9 IF 


10340 


DEFB 


IFH 




F4EA 57 


10350 


DEFM 


' Wi ederqabe* 




F4F4 0D 


10360 


DEFB 


CR 




F4F5 00 


1 0370 


DEFB 







F4F6 0D 


10380 TEXT3 


DEFB 


CP 




F4F7 4C 


10390 


DEFM 


''Laenge' 




F4FD 00 


10400 


DEFB 







F4FE 1C 


10410 TEXT4 


DEFB 


iCH 




F4FF IF 


10420 


DEFB 


IFH 




F500 46 


10430 


DEFM 


? Fi lename' 




F508 00 


10440 


DEFB 







F50? 56 


10450 TEXT5B 


DEFM 


' Verschieben* 




F514 00 


... 10460 


DEFB 





' \ — ■* 


F515 4E 


10470 TEXT5A 


DEFM 


'Neue Adr ? 




F51D 00 


10480 


DEFB 







F51E 4C 


10490 TEXT6 


DEFM 


'!_,.' 




F521 0D 


10500 TEXT6A 


DEFB 


CR 




F522 00 


10510 


DEFB 







F523 53 


10520 TEXT7 


DEFM 


? S..' 




F526 0D 


1 0530 


DEFB 


CR 




F527 00 


10540 


DEFB 







F528 56 


10550 TEXT8 


DEFM 


'V. . ' 




F52B OD 


10560 


DEFB 


CR 




F52C 00 


10570 


DEFB 







F52D 3C 


10580 TEXTO 


DEFM 


'CENTERS 




F534 0D 


10590 


DEFB 


CR 




F535 00 


10600 


DEFB 







F536 OD 


10610 TEXT10 


DEFB 


CR 




F537 53 


10620 


DEFM 


'SYS: ' 




F53C 00 


10630 


DEFB 


r> 




F53D OD . 


., 10640 TEXT11 


DEFB 


CR 


■/.I -£*v* ,- 


F53E 42 


10650 


DEFM 


'Blk: ' 




F543 00 


10660 


DEFB 







F544 OD 


10670 TEXT18 


DEFB 


CR 




F545 7A 


10630 


DEFM 


'ZUS! ' 




F54A 00 


10690 


DEFB 







F54B OD 


10700 TEXT12 


DEFB 


CR 




F54C 45 


10710 


DEFM 


J Ety: ' 




F551 00 


10720 


DEFB 







F552 3F 


10730 TEXT13 


DEFM 


'■3 19' 




F555 00 


10740 


DEFB 







F556 42 


10750 TEXT14 


DEFM 


'BAS: ' 




F55B 00 


10760 


DEFB 







F55C 4B 


10770 TEXT15 


DEFM 


'Kein ' 




F561 46 


10780 TEXT5 


DEFM 


'Fehler 7 




F567 OD 


10790 


DEFB 


CR 




F568 00 


10800 


DEFB 







F569 20 


10810 TEXT16 


DEFM 


' *? * 




F56C 00 


10820 


DEFB 







F56D 20 


10830 TEXT17 


DEFM 


' Fehler' 




F574 OD 


10840 


DEFB 


CR 




F575 00 


10850 


DEFB 







F576 OD 


10860 TEXT19 


DEFB 


CR 




F577 7A 


10B70 


DEFM 


' zu kurz. * 




F57F OD 


10880 


DEFB 


CR 




F580 00 


10890 


DEFB 








• (J-nK-a !.. V 



*■**■ ' '--f 
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F581 


20 


10900 


TEXT20 


DEFM 


j 


F584 


00 


10910 




DEFB 





F585 


0000 


10920 


FLEN 


DEFW 





F587 


0000 


10*30 


LSTRAC 


DEFW 





F589 


0000 


10940 


LSTREC 


DEFW 





F58B 


0000 


10950 


LSTAD 


DEFW 





F58D 


0000 


10960 


LSTAD1 


DEFW 





F5BF 


00 


10970 


C5F 


DEFB 





F590 


00 


10980 


BF 


DEFB 





F591 


00 


10990 


BFS 


DEFB 





F592 


00 


11000 


DF 


DEFB 





F5«3 


00 


11010 


DFLAG 


DEFB 





F594 


00 


1 1020 


CF 


DEFB 





F5<?5 


00 


11030 


FTF 


DEFB 





F596 


00 


11040 


AFF 


DEFB 


o 


F597 


00 


11050 


MZ 


DEFB 


o 


F598 


0000 


11060 


ENDSY5 


DEFW 





F59A 


00 


11070 


VF 


DEFB 





F59B 


0000 


11080 


VERADR 


DEFW 





F59D 


0000 


11090 
11100 


AE 


DEFW 

■ 





4800 




11110 




END 


s 


00000 TOTAL 


ERRORS 


-- * 






19*96 TE*T 


AREA BYTES LEFT 







START 



-, ., I- i 
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Li teraturverze i chn is : 



CI) Norbert Heicke, Lui dger Rockrath: 
Colour-Gen i e ROM -Li sting 

128 S., DIN A4, kartoniert, 1983, 59, — DM 
ISBN 3-925074-83-1 

< 2) Lui dger Rockrath 

Maschinensprachebuch fur TRS-80/Genie und Colour-Genie 
149 S., DIN AS, kartoniert, 1984, 49, — DM 
ISBN 3-925074-07-4 
""' (Inhaltsverzeichnis siehe folgende Seite> '*'"'--••- 

< 3) Lui dger Rockrath : 

nicrosof tbasi c verstanden - 

Konzepte , Al gor i thmen , Datenstrukturen C Arbei tst i tel > 

erscheint vor. Fruhjahr 1985 lm Franz is-Ver lag , Munchen 

<4) Rodnay 2aks : 

Die Programmierung des 280 

48, — DM 

Sybex, DUsseldorf 

(5> Colour Basic-leicht gemacht 
TCS GmbH, St. Augustin 

158 S. , DIN A4, kartoniert, 1983, 18, — DH 
ISBN 3-88965-001-7 



( 6 ) Das techn i sche Handbuch Co 1 our— Gen i e 
TCS GmbH, St. Augustin 
86 S., DIN A4, kartoniert, 49, — DM 
ISBN 3-88965-002-3 
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<7) Kalle Braun, JQrgen Buchmuller, Frank Seeger 
Das Colour-Genie Buch 1 
TCS GmbH, St. Augustin 

110 S., DIN A5, kartoniert, 1983, 39, — DM 
ISBN 3-88965-003-1 

(8) Kalle Braun , JQrgen Buchmuller, Frank Seeger 
Das Colour-Genie Buch 2 

TCS GmbH, St. Augustin 

118 S., DIN A5, kartoniert, 1983, 39, — DM 

ISBN 3-88965-004-X 

(9) Kalle Braun, JQrgen Buchmuller, Frank Seeger 
Das Coloui — Genie Buch 3 

TCS GmbH, St. Augustin 

108 S., DIN AS, kartoniert, 1984, 39, — DM 

ISBN 3-88965-007-4 



Al le Bucher konnen bei uns bezogen uerden . 
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Inhal tsverzeichnis des tlaschi nensprachebuches 



Teil 1: ROH-Rout inen 5 

1 » 1 Ein-/Ausgaberoutinen © 

1.2 Uerualtung des Programmtextes 16 

1.3 Uerualtung der Var i ablentabel le 21 

1 .4 Arithmetik 26 

1 .5 Str i ngverarbe i tung 34 

1 .6 Ausdrucksausuertung 36 

1 .7 Kassettenroutinen 38 

1 .8 Restart's 45 

Teil 2: RAll-Adressen 48 

Tei 1 3 : Vergleich der verschiedenen ROH-Versionen 50 

Tei 1 4 : Beschreibungen der Programme 55 

4.1 Bi ldschirmed'itor SEDIT 56 

4.2 Basicerueiterung NEUBAS 62 

4.3 Double Precision Funktionen DOUBLE 72 

4 . 4 Basicprogrammpacker PACK 75 

4.5 Feldaufzeichnung ARRAY 77 

4.6 Umlauterueiterung fur SCRIPSIT 80 

4.7 Assembler/Disassembler 280AD 83 

Teil 5: Listings der Beispielprogramme 87 

5 . 1 Bei spiel 1 : Durchschni tt eines Feldes 87 

5 . 2 Bei spiel 2 : Ausgabe einer Codetabel le 89 

5.3 Beispiel 3: POP-Anueisung 90 

5 . 4 Beispiel 4 : Zahlene in- /ausgabe 91 

5 . 5 Beispiel 5 : Systemf i leauf zeichnung 92 

+ 

Tei 1 6 : List i ngs der Programme aus Teil 4 95 

6.1 Bidlschirmeditor SEDIT 

6.2 Basicerueiterung NEUBAS 

6 . 3 Double Preci si on Funktionen 

6 . 4 Basicprogrammpacker PACK 

6.5 Feldaufzeichnung ARRAY 

6.6 Umlauterueiterung fiir SCRIPSIT 

6 .7 Assembler /Disassembler 280 AD 

6.8 Konvert ierungsprogramme /SRC <-> /tlAC 



Bi tte beachten Sie , dad die Teile 1 > 2, 3 und 5 ohne 
Einschrankung fur das Col our-Genie geeignet sind. Von den 
Programmen aus Teil 4 ist nur DOUBLE unverSndert auf dem 
Col our-Genie lauffahig. Der Assembler/Disassembl er bedarf 
ei ner Anpassung , die anderen Programme sind in einer 
spezi el I en Colour-Genie-Version im v/or 1 iegenden Buch 
Assembl ertr i cks en thai ten . 
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DOUBLE 


114 




124 




127 


IT 


131 




133 
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Luidger R6ckrath • NoppiusstraBe 19 ■ 5100 Aachen 

Neuerscheinung : 

L. Rockrath: 

Das Maschinensprachebuch 



Maschinen 
sprache 

buch 



HJi TW-aO model itm 
Ccnlc l,ll,m t ll/tlll/ 
Colour-Gcnlc 



voa Uild^er R6ckroth 



MIKROCOMPUTER 



^ 



fur TRS-80/Genie/Colour-Genie 
(149 S. f DIN-A5, kartoniert, 
49 DM, ISBN 3-925074-07-4) 

Das Maschinensprachebuch ist 

unentbehrlich fur jeden, der 

auf einem TRS-80/Genie Oder 

Colour-Genie Maschinenpro- 

gramme entwickelt. Es zeigt 

einfach und verstandlich auf, 

wie eigene Maschinenprogramme 

durch Ve rwendung von 

ROM-Routinen effizient ge- 

schrieben werden kbnnen. 

AuBerdem werden die Unter- 

schiede zwischen den ver- 

schiedenen Systeme erlautert. 

Zum Schlufi folgen ausfiihrlich 

dokumentierte Beispielpro- ~ "" 

gramme und hilfreiche 

Utilities im Quellprogramm. 

Das Maschinenprogramm bietet unter anderem: " "" r " ■*»--*■•*--*-■■**"-■'"-■'« 

- ausfiihrliche Beschreibung von ca. 70 ROM-Routinen: 

- Einsprungadresse, Name, evtl. Unterschiede zwischen den Systemen 

- Registerbeeinf lussung 

- Aufruf- und Ergebnisparameter 

- genaue und ausfUhrliche Funktionsbeschreibung 

- 1 Beispiel fUr die Anwendung 

- genaue Beschreibung des Aufbaus des Basicprogrammtextes, 
der Variablentabelle, ... 

- Auflistung aller wichtigen RAM-Zellen, in denen Parameter 
fur die ROM-Routinen Ubergeben werden mlissen 

- Vergleich der ROM's von TRS-80 Model I (alte/neue Version), TRS-80 
Model III, Genie I+II, Genie III, Genie Ills, Colour-Genie 

- 5 ausfiihrlich dokumentierte Sourcelistings von Beispielprogrammen: 
Durchschnitt eines Feldes, Codetabelle, POP- Anwei sung, 
Zahlen-Ein-/Ausgabe und System-File-Aufzeichnung auf Kassette. 

- Sourcelistings und Beschreibungen zahlreicher Utilities, die Pro- 
grammiertechniken aufzeigen und sinnvoll eingesetzt werden kbnnen: 
komfortabler Bildschirmeditor SEDIT / Basicerweiterung NEWBAS / 
Erweiterung aller Funktionen auf doppelte Genauigkeit DOUBLE / 
Basicprogrammpacker PACK / Feldaufzeichnung ARRAY / 

Umlaut- und Druckersteuerungserweiterung fur SCRIPSIT / 

Assembler/Disassembler/Editor/Monitor Z80AD 

(nicht alle Programme auf TRS-80-Model-III/Colour-Genie lauffahig. ) 

- Erlauterung aller Methoden des Betriebssystemeingriffes 
mit Beispielen: Eingriff uber RST-Vektoren, Disk-Basic- 
Vektoren, Treibervektoren im DCB, Befehlserweiterung 
durch Eingriff in die Interpretationsschleife. 
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Assemblertricks auf dem Colour-Genie 



Di eses Buch zeigt alle Tricks auf > mi t 
denen auf dem Colour — Genie effektiv in 
Assembler programmiert uerden kann* 
Damit uird der Zugriff vom Assembl erpro- 
gramm auf f reiprogrammierbare Zeichen, 
hochauf losende Graf ik, PSG , CRTC und Dis- 
kette spielend einfach. Durch eine genaue 
Beschreibung von vielen ROM-Routinen kon- 
nen schnell Maschinenprogramme hoher 
Leistungsf ahigkei t geschr ieben uerden . 
Zahlreiche Beispiele (darunter eine Er- 
ueiterung des Bildformates auf 30 Zeilen a 
50 Zeichen und ein Programm zum Lesen von 
disk-relativ adressierten Sektoren) zeigen 
Programmiertechniken und sinnvolle Anuen- 
dung der vorgestel 1 ten Routinen im Zusam— 
menhang auf . 

SchlieBlich folgen die Beschreibungen und 
,. iuellprogramme zahlreicher prof essionel ler 
Utilities, vom Bi ldschi rmedi tor SEDIT bis 
zu den beiden universellen Kopierprogram- 
men COPBIT und SAVETAPE* 
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Luidger RBckrath: 

Asgemblertrlcks auf dem Colour-Genie 



Dieses Buch zeigt alle Tricks auf, mit 
denen aaf dem Colour-Genie effektiv in 
Assembler programmiert uerden kann, 
D*iKit> uird der Zugriff worn Assembl erpro- 
gramm auf f re 1 programm ierbare Zeichen, 
hochauf Idsende Grafik, PSG , CRTC unrf Dis- 
kette spielend einfach. Durch eine genaue 
Beschreibung won vielen ROtt-Rout i rten kiJn- 
nen achnel 1 tJasch i nen programme hoher 
Leistungsf ahigkei t geschrieben uerden. 
Zahlreiche Beispiele Cdarunter eine El — 
ueiterung des Bl Idf ormates auf 3@ Zeilen a 
50 Zeichen und ein Programm zum Lesen won 
disk-rslat 1 y adressierten Sektoren) zeigen 
Programmiertechniken und sinnvjolle Anuen- 
dung der vargestel 1 ten Routinen im Zusam- 
menhang auf. 

Schliefilich folgen die Beschreibungen und 
luellprogramme zahlreicher prof essionel ler 
Utilities, uom Bi 1 dschi rmedi tor SEDIT bis 
zu den beiden universellen Kopierprogram- 
nen COPBIT und SAUETAPE. 
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